Dim com problemas

Boa noite, podem me ajudar, não sei, começou a apresentar o erro e antes não ocorria.


Function OnOfLine()
Dim db As Database
Dim rs As Recordset

Set db = CurrentDb()

Set rs = db.OpenRecordset("select * from historicoDeAcesso where Usuario='" & UserLog & "' and OnLine='" & UsuarioOnline & "'", dbOpenDynaset)

While Not rs.EOF
rs.Edit
rs![OnLine] = "OfLine"
rs![DataHoraDaSaida] = Texto161
rs.Update
rs.MoveNext
Wend

rs.Close
db.Close

End Function

Ola seja bem vindo ao fórum;

Fiz um teste assim e funfou;

Teste e retorne;

Código:

Public Function OnOfLine()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim UserLog$
Dim UsuarioOnline$

UserLog = "jpaulo"
UsuarioOnline = "Online"

Set db = CurrentDb()

Set rs = db.OpenRecordset("select * from historicoDeAcesso where Usuario='" & UserLog & "' and OnLine='" & UsuarioOnline & "'")

'se não encontrar registro, morre aqui
If rs.RecordCount = 0 Then
'além de fechar, tem de limpar a memoria com o = Nothing
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
'pára a função
    Exit Function
End If

While Not rs.EOF
    rs.Edit
        rs![OnLine] = "OfLine"
        rs![DataHoraDaSaida] = Now() 'Me!Texto161
    rs.Update
    rs.MoveNext
Wend
'além de fechar, tem de limpar a memoria com o = Nothing
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
End Function