Problema con conexion a BDD Access

[Bluesman74cl]

Señores... tengo la siguiente forma de conectar a access

Código:

 
Public Sub conexion()
  Dim Miconexion As ADODB.Connection
  Dim Aux As String
  Dim res As ADODB.Recordset
  Set Miconexion = New ADODB.Connection
  Set DbVentas = OpenDatabase(App.Path & "\db\capacita.mdb")
  Aux = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=DVentas"
  Miconexion.ConnectionString = Aux
  End Sub

pero al tratar de hacer correr el programa me lanza un error de

runtime-error 3343
Unrecognized database format
bla/base.mdb


por favor quien me ayuda a hacer la conexion de manera correcta??

[Developer9]

Mejor puedes crear un dsn que apunte a tu base de access en PaneldeControl/herramientasAdministrativas/Origenes de datos
y a la variable de tipo ADODB.Connection le asignas el nombre del dsn

Cualquier cosa pregunta