Public DB As New ADODB.Connection
'Datenbank öffnen
Sub Main()
        DB.Provider = "Microsoft.Jet.OLEDB.4.0"
        DB.ConnectionString = dbfile
        DB.CursorLocation = adUseClient
        DB.Mode = adModeReadWrite
        DB.Open
End sub

'ADO Recordset:
Public Function dbOpenRecordset(oConn As ADODB.Connection, _
  ByVal sSQL As String, _
  Optional ByVal CursorType As ADODB.CursorTypeEnum = adOpenDynamic, _
  Optional ByVal LockType As ADODB.LockTypeEnum = adLockOptimistic, _
  Optional ByVal CursorLocation As ADODB.CursorLocationEnum = adUseClient) _
  As ADODB.Recordset
 
  Set dbOpenRecordset = New ADODB.Recordset
  With dbOpenRecordset
    .CursorLocation = CursorLocation
    .Open sSQL, oConn, CursorType, LockType
  End With
End Function

    Dim tabelle As ADODB.Recordset
 
    Set tabelle = dbOpenRecordset(DB, SQL)
    If tabelle.RecordCount > 0 And Not tabelle.BOF Then tabelle.MoveFirst
    If tabelle.RecordCount = 0 Then
        MsgBox "Es wurden keine Elemente gefunden", vbInformation, "Hinweis"
        GoTo 20
    End If

mfG.
Stephan