ODBC - Quien sabe que es este ERROR......URGENTE

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