Visual Basic - error 3705

hola amm soy nueva con visual basic estoy haciendo una base de datos
y estoy teniendo problema con el error 3705 con la conexion y en realidad no c porque
porque ya intente que cerrara al salir pero no cierra necesito ayuda lo mas pronto posible gracias


tt. Eli

Set rs = New ADODB.Recordset

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\Consecionario01.mdb" en est me marca error -.-

rs.Source = "Clientes"
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

rs.Open "select * from Clientes", cn
rs.MoveFirst

Text1.Text = rs.Fields("Codigo Cliente")
Text2.Text = rs.Fields("Nombre del Cliente")
Text3.Text = rs.Fields("Apellidos del Cliente")
Text4.Text = rs.Fields("Dirección del Cliente")
Text5.Text = rs.Fields("Población")
Text6.Text = rs.Fields("Código Postal")
Text7.Text = rs.Fields("Provincia")
Text8.Text = rs.Fields("Teléfono")
Text9.Text = rs.Fields("Fecha Nacimiento")

End Sub

el error esta en que te estas conectando a la base de datos con la deficion de cn
y esta no esta declara como adodb.conection

mira el codigo de nuevo y encontraras el error

no indage mas alla pero solo con mirar el primer error que tendrias al intentar conectarte seria ese

y si declaras esto al final de tu codigo o en la funcion de cerrar usas

cn.close