I've tried IsNull() and IsEmpty() on an uninitialized ADODB.Recordset, but
they both return False.

VBA, at least under Access 2000, doesn't like the test:

If rs = Nothing Then ...

Is there an easy test to determine if a recordset is open?

Hi there,

This ought to do it:

if rs.EOF and rs.BOF then


Ie if rs.end of file and rs.beginning of file

the recordset cursor is simultaneously set to point to the beginning
and the end of the recordset when there are no records.





"MyndPhlyp" <nobody (AT) home (DOT) now> wrote

"Michael" <westmj (AT) hotmail (DOT) com> wrote

That only tells me if there are no records in the recordset. I'm trying to
determine if the recordset is open.

I think I have a solution from another NG, and I've also found a correction
to my syntax problem:

If IsObject(rs) Then
If rs Is Nothing Then
'.. recordset is not open
End If
End If

An ADO recordset returns the State property which can be read. For Example:

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

if rs.State = adStateOpen Then
etc etc

Check the Object Browser for the ObjectStateEnum collection in the ADODB
library ...

--
Scott McDaniel
CS Computer Software
Visual Basic - Access - Sql Server - ASP

"Smash forehead on keyboard to continue ... "


"MyndPhlyp" <nobody (AT) home (DOT) now> wrote

"Scott McDaniel" <scott (AT) no (DOT) spam.thedatabaseplace.net> wrote

Cool. Looks better than what I was using ...

If rs.ActiveConnection Is Nothing Then

Using rs.State certainly documents better. Thanx.