Creating an ADO Recordset 2

[Blondie96]

I am trying to create an ADO recordset from a table that exists within the current database, when I execute the code I get:

Run-time error '3709':
The connection cannot be used to perform this operation. It is either closed or invalid in this context.

the code is:

Dim rstData As ADODB.Recordset
Dim strSQL As String

Set rstData = New ADODB.Recordset

strSQL = "Select * From tblClassroomReservations"
rstData.Open strSQL, , adOpenDynamic, adLockOptimistic, adCmdText

any help is appreciated.

Thanks,
Tamra

 

[Blondie96]

One more question...

If I wanted to open another recordset with the same fields and format as tblclassroomReservations, but with no data, how could I accomplish that?

 

[PHV]

Select * From tblClassroomReservations Where 1=2

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[Blondie96]

I don't understand that select...

or does that just supply it a null result set (1 can't = 2)

 

[PHV]

but with no data

 

[Blondie96]

Thanks