Create un DSN, al parecer el problema es al abrir la DB me equivoco?
entonces desde el origen de datos, creas el DSN a esa DB y te haces una constante que llame a dicho DNS:
yo siempre pongo en la sección general de declaraciones lo siguiente:
Código:
Private Oconn As ADODB.Connection
Private rs As ADODB.Recordset
Const cadConx = "DSN=tuDSN"
Private strSQL As Variant
Sub Algo()
Set Oconn = New ADODB.Connection
Oconn.Open cadConx
End Sub
Como te decían asegúrate de tener las referencias de ADO agregadas...
Salu2,