VB6, Visual Basic 6, Условие, If - Then, Состояние рекордсета (ADODB.Recordset), Проверка открыт рекордсет или нет
rcd - рекордсет (ADODB.Recordset)
If rcd.State = adStateOpen Then
    rcd.Close
End If
If rcd.State = adStateOpen Then
    rcd.Close
End If