AdoRequery

Public Sub ADO_OpenRs(rs As Recordset, szSource$, Optional bReadOnly = False)
' Open or Requery a Recordset.

On Error Goto lab_Err

If rs.State = adStateClosed Or rs.Source <> szSource Then
If rs.State <> adStateClosed Then rs.Close
rs.Open szSource, gCn, adOpenStatic, IIf(bReadOnly, adLockReadOnly, adLockOptimistic)
Else
rs.Requery
End If
lab_Exit:

Exit Sub

lab_Err:

MsgBox Err.Description
Goto lab_Exit

End Sub