CONEXIONA BASE DE DATOS ACCESS POR CODIGO

Andres Vilca
17 de Mayo del 2011
Hola como estan estoy creando una aplicacion en visual basic 6.0 , estoy haciendo un formulario de manteniemiento de lugar de residenccia (DISTRITO aca en PERU lo conocemos de esa forma).

Agregue un modulo y en el modulo cree mi recordset y mi connection este es el codigo

**************modulo************************
Public cndist As ADODB.Connection
Public rsDistrito As ADODB.Recordset

**********************************************



en mi formulario e puesto este codigo:

Private Sub Form_Load()

Set cndist = New ADODB.Connection

With cndist
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:siscesaBDvisita.mdb;Persist Security Info=False"
.Open
.CursorLocation = adUseServer
End With

Set rsDistrio = New ADODB.Recordset
rsDistrito.ActiveConnection = cndist
rsDistrito.CursorType = adOpenDynamic
rsDistrito.LockType = adLockOptimistic
rsDistrito.Open "select * from Distrito"

Llenatexto

End sub



CUANDO COMPILO EL PROGRAMA ME SALE ESE MENSAJE DE ERROR

" Variable de tipo Object o la variable de bloque with no esta establecida "


Y SE MARCA DE COLOR AMARILLO ESA ZONA
rsDistrito.ActiveConnection = cndist
Esperando su pronta respuesta, de antemano les agradescp