can’t find the solution to this problem

I can't find the solution to the problem below:

ADODB.Recordset (0x800A0BB9)
The arguments are of the wrong type, are not in the allowed range or are in conflict with each other.

---

<%
 Dim DB_CONNECTIONSTRING

 DB_CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("Bugs.mdb") & ";"
Dim strSQL       ' String variable for building our query

 Dim objRecordset
 Set objRecordset = Server.CreateObject("ADODB.Recordset")

 strSQL = "SELECT * FROM tblBugs WHERE 0=1;"

 objRecordset.Open strSQL, DB_CONNECTIONSTRING, adOpenKeyset, adLockPessimistic, adCmdText 'this is the line where the error shows up
 
 objRecordset.AddNew

 objRecordset.Fields("Bug_Page") = Request.ServerVariables("HTTP_REFERER")
 
 objRecordset.Fields("Description") = Request.QueryString("S1")
 
 objRecordset.Fields("Extra_info") = Request.QueryString("S2")
 objRecordset.Fields("When") = Now()

 objRecordset.Update

 objRecordset.Close
 Set objRecordset = Nothing

%>

---

they are constants. i changed them to:

adOpenKeySet = 1
adLockPessimistic = 2

and then it worked.

thx for the help

below is the changed line:

-------------
objRecordset.Open strSQL, DB_CONNECTIONSTRING, 1, 2
-------------