Private Sub cmdDel_Click()
    Dim DB As Database
 
    MsgBox datRoutes.Recordset.RecordCount
 
    'Datenbank öffnen
    Set DB = Workspaces(0).OpenDatabase(strFBFile, False, False, "MS" & _
      "Access;pwd=" & strDBPassword)
 
    'Datensatz löschen
    DB.Execute "DELETE * FROM " & strTblRoutes & " WHERE id=" & _
        fgRoutes.TextMatrix(fgRoutes.RowSel, 0)
 
    'Datenbank schließen
    DB.Close
    Set DB = Nothing
 
    datRoutes.Refresh
 
    MsgBox datRoutes.Recordset.RecordCount
End Sub