Visual Basic - Quien sabe de ODBC me esta volviendo Loco Error

Que significa este error que no he podido solucionar
Run-time error
Microsoft(Administrador de controladores ODBC) no se encuentra el nombre del origen de datos y no se expesifico ningun controlador predeterminado.

este es el Error , cuando intento abrir la conexion CN.OPEN

AQUI ESTA EL CODIGO.

Set cn = New ADODB.Connection
cn.ConnectionString = "dsn=basepro;"
cn.Open
Set mrs = New ADODB.Recordset
mrs.LockType = adLockOptimistic
mrs.CursorType = adOpenKeyset
End Sub

Private Sub Form_Unload(Cancel As Integer)
cn.Close
Set cn = Nothing
End Sub

Private Sub List1_Click()
Dim Consul As String
Consul = "select*" & _
"from tinve" & _
"where Clave01= " & List1.ItemData(List1.ListIndex)
mrs.Source = Consul
Set mrs.ActiveConnection = cn
mrs.Open

txtCoo.txt = mrs.Fields("codigo")
txtDee.Text = mrs.Fields("descrip")
txtCaa.Text = mrs.Fields("fecha")
mrs.Close

POR FAVOR NECESITO AYUDA
ROD

Cuando estabas creando el DSN le diste al boton de PROBAR CONEXION y te funciono, por que el problema de seguro es con el DSN.

Quita la linea que dice connectionstring y solo pon:
Dim cn As ADODB.Connection
cn.Open "dsn=basepro"

Para el Recordset:
Dim rs as New ADODB.Recordset
rs.open "Select * from Tabla", cn, adOpenKeySet, adLockOptimistic

Perdona, la primera linea es:
Dim cn As New ADODB.Connection