Dim stUser As String
stUser = GetLoginName

Select Case stUser
Case "DAVID", "KATHY", "JO", "Micheal"
        'allow access
    Case Else
        'restrict access
End Select


Public Function GetLoginName() As String
    ' Returns the network login name
    Dim lngLen As Long, lngX As Long
    Dim strUserName As String
    
    strUserName = String$(254, 0)
    lngLen = 255
    
    lngX = apiGetUserName(strUserName, lngLen)
    
    If (lngX > 0) Then
        GetLoginName = Left$(strUserName, lngLen - 1)
    Else
        GetLoginName = vbNullString
    End If
End Function