Why am I getting a run time error?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

The following code breaks on the last line and generates a run time error:
*********************************
Dim ADOcnncvp As ADODB.Connection
Dim ADOrstcvp As ADODB.Recordset
Dim sqlcvp As String

Set ADOcnncvp = CurrentProject.Connection
Set ADOrstcvp = New ADODB.Recordset

sqlcvp = "SELECT PatientID, Section, SectionSignDate, SectionVerfDate
from tblCRFSectionsLog WHERE PatientID='.' AND Section = 'Cover Page'"

ADOrstcvp.Open sqlcvp, ADOcnncvp, 3, 2
*************************************
message:
Run time error:
Method 'Open' of Object '_Recordset' failed

I could not find help on this message. Any Idea?
thanks
 
Instead of:
Dim ADOrstcvp As ADODB.Recordset

Try:
Dim ADOrstcvp As New ADODB.Recordset
Without:
Set ADOrstcvp = New ADODB.Recordset

Also, verify your query string. Make it a simple SELECT statement that you
know will work.
 
Back
Top