Private Sub Form_Load()
    Set DB = CurrentProject.Connection
    'Set DB = CurrentDb
    If Not IsNull(DB) Then
        MsgBox "Database Init OK"
    Else
        MsgBox "Database Connection Error"
    End If
    modISAC.Login
    MsgBox "Login as: " & strUser & ""
    'aktuellen User in Table user eintragen
    DB.Execute "INSERT INTO USER ([Name]) VALUES (" & strUser & ")"
End Sub

blutiger Anf?nger...