Private Sub cmdOK_Click()
    Dim Db As Database
    Dim Tabelle As Recordset
    Dim SQL As String
 
    SQL = "SELECT * FROM userdaten;"
    Set Db = OpenDatabase(App.Path + "\" + "dat\dat.mdb")
    Set Tabelle = Db.OpenRecordset(SQL)
 
    Tabelle.Close
    Set Tabelle = Nothing
 
    Db.Close 'Datenbank schließen
    Set Db = Nothing
End Sub

Set Tabelle = Db.OpenRecordset(SQL)