Ese error puede ser porq no existe el origen de datos, no esta creado o que en la conexion te falto especificar que tipo de Driver o Provider...
Por ejemplo: Tienes este codigo
Código:
cn1.Open "DSN=nombredelabasededatos", "login", "clave"
Trata de especificar mas la cadena de conexion ya q debes indicar a q tipo de origen de datos se va a conectar.... El siguiente codigo es para MySQL, modificalo de acuerdo a tu DB...
Código:
constr = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=DBname;SERVER=localhost;UID=root;PASSWORD=;PORT=;OPTION=16387;STMT=;" & Chr$(34)
Set conn = New ADODB.Connection
conn.Open constr
Prueba especificando la cadena de conexion...