Visual Basic - CONEXIONA BASE DE DATOS EN ACCESS

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

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




** *******metodo************************

Public Sub Llenatexto()
rsDistrito!IdDistrito = txtcodigo.Text
rsDistrito!nombre_distrito = txtnomdist.Text
End Sub




----------------------------------------------------------------------------------------------------------------



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:\siscesa\BD\visita.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


por favor me podrian ayudar y decirme cual es el problema ? esperando su pronta respuestaa

Te falta en

rsDistrito.Open "select * from Distrito", cndist, acOpenStatic, adLockOptimistic