hvad er fejlen?

Du mangler et komma imellem de to kolonne du ligger data i det skal være efte now.:

strSQL = strSQL & "Sidstlog= '" & Now & "', "

og hvilken data type er sidstlog og online?
Du kan overveje at bruge den interne Now i databasen sådan her:

strSQL = "Update Brugere set "
strSQL = strSQL & "Sidstlog= Now(), "
strSQL = strSQL & "Online= 'ja' "
strSQL = strSQL & " Where Ucase(Bruger)= '" & Ucase(strUsr) & "'"


og hvis Online er en Ja/Nej kolonne så skal man bruger 1 for Ja og 0 for Nej og uden ' omkring:

strSQL = "Update Brugere set "
strSQL = strSQL & "Sidstlog= Now(), "
strSQL = strSQL & "Online= 1 "
strSQL = strSQL & " Where Ucase(Bruger)= '" & Ucase(strUsr) & "'"

klart hvordan kunne jeg overse det =) tak