Username Table - How to use it using VBA

[SERT1]

I have created a username table in my database based on a network login. I have created VBA code that is supposed to look up the login ID in a table, but it's not working properly. Can anyone give me a code that will look up the "Environ("Username&quot and compare it with a table and either log into a program or quit?

 

[VBslammer]

Function IsValidUser() As Boolean
  Dim strUser As String
  Dim rst As Recordset
  Dim db As Database
  
  Set db = CurrentDb()
  
  Set rst = db.OpenRecordset("UserTable", dbOpenTable)
  
  strUser = Environ("username")
  
  With rst
    While Not .EOF
      If .Fields("UserID") = strUser Then
        IsValidUser = True
        GoTo ExitHere
      End If
      .MoveNext
    Wend
  End With
  
ExitHere:
  On Error Resume Next
  rst.Close
  Set rst = Nothing
  Set db = Nothing
End Function

VBSlammer

Unemployed in Houston, Texas