Private Sub Befehl0_Click()
 Dim wert As String
 Dim Temp As Variant
 Dim rs As Recordset
 Dim db As Database
 Dim ws As Workspace
 Dim SQL As String
 
 If GetValue(HKEY_CURRENT_USER, "Volatile Environment", "NWUSERNAME", Temp) Then
  wert = Left(Temp, 3)
 End If
 
 SQL = "SELECT User FROM tblBenutzer WHERE User = '" & wert & "'"
 
 Set rs = CurrentDb.OpenRecordset(SQL)
 
 If rs.RecordCount = 1 Then
 
  MsgBox "OK!"
 Else
  DoCmd.Close
  MsgBox "Not an accept User!"
 End If
 
End Sub