esto es lo que yo coloco en un modulo de mi proyecto para vincularlo:
Cita: Set cn = New ADODB.Connection
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "data source=" & App.Path & "\BD_SISTEMA_MINERA.mdb"
cn.Open
If cn.State = stateclosed Then
MsgBox "Conexión Incorrecta", 16
End
Else
MsgBox "Conexión Correcta", 64
End If
Ahora Bien la base esta junto al ejecutable
El error me lo arroja en la propiedad connectionstring de mi adodc.