Visual Basic - Problema com CONEXION BASE DATOS

Sabes alguien que es este problema y como puedo solucionarlo
Tengo un codigo para una consulta con ADO pero tengo un probleama que no puedo enterder.

EL PROBLEMA ES EN LA APERTURA DE LA CONEXION cn eS LA BARIABLE, aqui recibo un mensaje que dices EL ADMINISTRADOR DE CONTROLADOERS ODBC no se encuentra.
no se que es ayuda por favor.

Option Explicit
Private cn As ADODB.Connection
Private mrs As ADODB.Recordset

Private Sub cmdLista_Click()
Dim rs As ADODB.recorset
Set rs = New ADODB.Recordset
rs.Source = "select*" & _
"from tinve" & _
"where codigo = 'Txtcoo' " & _
"order by codigo,descrip"
Set rs.ActiveConnection = cn
rs.Open
List1.Clear
Do While rs.EOF
List1.AddItem rs.Fields("Codigo") & "" & _
rs.fileds("descrip")
List1.ItemData(List1.NewIndex) = rs.fileds("Clave01")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub





Private Sub Command2_Click()
Dim Consul As String
'abrir un recorset vacio
Consul = "select*" & _
"from tinve" & _
"where clave01=0"


mrs.Source = Consul
Set mrs.ActiveConnection = cn


mrs.AddNew
mrs.Open
mrs.Fields("codigo") = txtCoo.Text
mrs.Fields("descrip") = txtDee.Text
mrs.Fields("descrip") = txtCaa.Text
mrs.Update
mrs.Close

cmdLista_Click



End Sub

Private Sub Command3_Click()
Me.Hide

Hola,

No quisiera parecer demasiado ortodoxo, pero en el código que muestras como ejemplo no identifico en que momento abres la conexión (cn).

Se requiere una conexión activa, ya sea mediante un DSN (aquí es en donde entraría el Controlador ODBC), o especificando los parámetros adecuados en el string Connect (Provider, threads, etc.).

Esto podría estarte ocasionando el error.

Saludos y Feliz Año!