ADODB.Recordset error '800a0bb9' : Arguments are of the wrong type

Question

Set rsPlanID = Server.CreateObject(\"ADODB.Recordset\")
rsPlanID.CursorLocation = adUseClient

strSQL = \"SELECT PlanID FROM ATTJournals WHERE ATTUserDataID = \" &am         


        

Answer 1

Function SQL_getRecordset(strQuery)

'On Error Resume Next
 'Create Database connection object
  Set objConnection = CreateObject("ADODB.Connection")

  'Create Recordset object
  Set objrecordset = CreateObject("ADODB.Recordset")

  'Specify the connection string
  strConnectionstring = "Provider=SQLOLEDB.1;Data Source=**;Initial Catalog=**;Integrated Security=SSPI"
  objConnection.Open strConnectionstring

  'Execute the Query
  Set objrecordset = objConnection.Execute(strQuery)

  'Return Recordset
  Set SQL_getRecordset = objrecordset

  'Release objects from the memory
  Set objConnection = Nothing
  Set objrecordset = Nothing

End Function