Consider the following class definition:
----pExample.cls----
Private m_Recordset As ADODB.Recordset
Property Let Recordset(RHS As ADODB.Recordset)
Set m_Recordset = RHS
End Property
Property Get Recordset() As ADODB.Recordset
Set Recordset = m_Recordset
End Property
----
The Recordset...
John,
It's not the find that generates the error - it's the second resync.
Also, .find "TableName=""Variables""" doesn't work. I think in the area of quotes (which is another problem), ADO should use single quotes.
Cheers, Rob.
Why does the following ADO code running off a SQL 7 DB:
With rsReadTableInfo
.Open
.Find "TableName='Variables'"
.Resync adAffectCurrent
.MoveFirst
.Find "TableName='Salutations'"
.Resync adAffectCurrent
End With...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.