Public Sub DB_Open()
Set connDB = New ADOdb.Connection
  On Error GoTo DB_Fehler
    With connDB
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .Properties("Data Source") = "D:\PP-DB-Test\PPDB.accdb" 'früher war hier 
      ' .mdb
      .Mode = adModeShareDenyNone
      .Open
    End With
Exit Sub
 
Next1:
Debug.Print Err.Number
Debug.Print Err.Description
End Sub

-2147467259 Nicht erkennbares Datenbankformat 'D:\PP-DB-Test\PPDB.accdb'

Public Sub DB_Connection()
Set rs = New ADOdb.Recordset
 
On Error GoTo Next1
    With rs                                             
        .ActiveConnection = connDB
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open sSQl, , , , adCmdUnknown
    End With
Exit Sub
 
Next1:
Debug.Print Err.Number
Debug.Print Err.Description
End Sub

Mit freundlichen Grüssen
Detlev