Closing Recorsets Left Hanging Open

[grovelli]

In the Click event for the Comando50 button on the startup form of the attached mdb, I'm trying to use the line
If rst.State = adStateOpen Then rst.Close
but I get the
Ado runtime error 3219: The operation requested by the application is not allowed in this context.
when the code executes that line.
How do you then close recordsets left open?
(The rst recordset is left open if I try inserting a date that's already present)

 

[RuralGuy]

I would just set On Error Resume Next and do it!

 

[grovelli]

Hi,
I cannot resume the code at the next instruction because I need the line
If rst.State = adStateOpen Then rst.Close
to work so as to close the recordset.

 

[DB7]

I personally grovelli, like many programmers do,
have one exit point, where they do all their clean up.

Sub FindName()
On Error GoTo xxx

Dim rst As New AdODB.Recordset
rst.Open "SELECT......
Do Until....
...
Loop

CleanUp:
rst.Close
set rst = Nothing
Exit Sub

xxx:
MsgBox err.Number & vbcrLf & err.Description
Resume CleanUp
End Sub

 

[grovelli]

Thank you,
That's what I was looking for.