Set DB = Workspaces(0).OpenDatabase(App.Path & "\DB.mdb")
 
SQL = "SELECT Name, Sprache FROM TabInfo WHERE Sprache Like '" + strSprache + _
  "%'"
 
Set RS = DB.OpenRecordset(SQL)  ' Tabelle mit den gefundenen Lektionen öffnen
 
If RS.RecordCount = 0 Then      ' Wenn keine Lektionen gefunden wurden
                    ' Datenbank schließen
RS.Close
Set RS = Nothing     
DB.Close
Set DB = Nothing
    Exit Function               ' Suchroutine verlassen
End If

Press any key to continue or any other key to quit...