The code to set the currentuser is listed in my first post, it is in the form open event, this is where I was having the problem, it was setting the currentuser to null as nothing was in the table.
Dim TableName As String
TableName = Nz(DLookup("CurrentUserID", "UserInfo"))
If TableName <> ""...