Error OpenDatabase

[ValentinoMolinari]

no entiendo tu coneccion, fijate esta tal vez te sirva
Public Sub main()

strcn = App.Path & "\CA.mdb"
On Error GoTo ErrAbr
ConData = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strcn & ";"
' Data.ConDigital.Open ConData
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strcn & ";"

Set Comando = New ADODB.Command
Comando.ActiveConnection = cn
'Data.Commands(1).ActiveConnection = ConData
Set FncAux = New ADODB.Recordset ' Solo para funciones
FncAux.ActiveConnection = ConData
ErrAbr:
If Not Err.Number = 0 Then
MsgBox "Ocurrió un error al abrir la base de datos" & Err.Number, vbCritical, "Horror Fatal!!!!!!!"
End
End If
FrmSeguridad.Show
End Sub