Dim objRec as ADODB.Recordset
Set objRec = New ADODB.Recordset
objRec.Open "Select * From Accounts",objConn,adOpenDynamic, adLockOptimistic,adCmdText
If objRec.State = adStateClosed Then
MsgBox "Recordset could not be opened"
End If