ADODB.Recordset error '800a0bb9'

[Haldan42]

Hi
I am suddenly getting this message:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/include/vars.asp, line 52

This is a copy of lines 52-69:

objRS.Open "table1", Application("strConnect"), adOpenForwardOnly, adLockReadOnly, adCmdTable
        If objRS.EOF Then
			objRS.AddNew
			objRS("VisitDay") = Application("VisitDay")
		ElseIf objRS("VisitorCount") < Application("VisitorCount") Then
			objRS("VisitorCount") = Application("VisitorCount")
			objRS("EditorCount") = Application("EditorCount")
			objRS("HitCount") = Application("HitCount")
		End if
		objrS.Update
		objRS.Close
		
		Application.Lock
		Application("VisitDay") = strStatDate
		Application("VisitorCount") = 1
		Application("EditorCount") = 0
		Application("HitCount") = 1
		Application.Unlock

Can anyone help me? :)