HOLA A TODOS:
SOY NUEVO EN .NET YO DESARROLABA EN VB 6, ESTOY REALIZANDO ALGUNAS PRUEBAS CON .NET, Y TENGO UNA DUDA:

CON VB 6 YO CREABA UN MODULO DE CONEXION A LA BASE Y EN TODO EL PROYECTO TRABAJA CON ESA CONEXION PORQUE ESTABA DECLARADA COMO PUBLICA O GLOBAL. CON ESTE CRITERIO EMPECE A PROBAR CON .NET
Y LA SORPRESA ES QUE PIERDO LA CONEXION DE OBJETO CN(Public cn As OleDbConnection)
ENVIO CODIGO .NET

Module Conexion
Public MiBase As String = "C:\VB_NET\PRUEBA1\PRUEBA1\bin\SIAS.MDB"
Public cn As OleDbConnection
Public da As OleDbDataAdapter
Public ds As DataSet
Public comando As OleDbCommand

Public Sub conectar()

Dim cn As New OleDb.OleDbConnection()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& MiBase & "; User Id=admin;Password="
cn.Open()
----------------------------- AQUI ESTOY COMPARANDO EL ESTADO DE cn
If cn.State = ConnectionState.Open Then
MessageBox.Show("Base abierta.....") ' -------AQUI TODO BIEN
Else
MessageBox.Show("Base cerrada.....")
End If

End Sub

Y AL MOMENTO DE ENTRAR A RUTINA CARGAR() ME MANDO UN ERROR DONDE ME DICE QUE LA CONEXION "NOTHING" O SEA QUE YA NO ESTA CONECTADO, EL CODIGO ES EL SIG:
Public Sub Cargar()

Dim da As New OleDbDataAdapter("SELECT * FROM A04", cn)
Dim ds As New DataSet
da.Fill(ds) ------------ AQUI ME MARCA ERROR

DataGridView1.DataSource = ds.Tables(0)

With DataGridView1
.Columns("A04_1").Width = 50
.Columns("A04_2").Width = 400
.Columns("A04_1").HeaderText = "Clave:"
.Columns("A04_2").HeaderText = "Descripcion:"
End With



QUE ESTOY HACIENDO MAL.

Saludos:

Este link te habla de ello:

Visual Basic .NET programming for Beginners - Displaying the Data in the DataSet

Hay que declarar la conexion y abrirla cada vez que la uses. NO se mantiene abierta.

Espero ayude.


JOSE LUIS