Dim oRs As Recordset
    Dim SQL_Befehl As String
 
    SQL_Befehl = "SELECT * FROM Users WHERE user_name = '" & _
      cmb_UserSelect.Text & "';"
    Set oRs = odb.OpenRecordset(SQL_Befehl)
    If oRs.RecordCount = 1 Then
        fld_UserName = oRs!user_name
        fld_UserPreName = oRs!user_prename
        fld_UserNickname = oRs!user_nickname
        fld_userpass = oRs!user_pass
        fld_UserId = oRs!user_countnr
        chk_LogViaNickName.Value = oRs!UserLockThroughUName
        chk_LogViaWS_ID.Value = oRs!UserLockThroughWSID
    Else
        MsgBox "Fehler aufgetreten!"
    End If
 
'usw.....