[RESOLVED] Close DB Connection (Type Mismatch)

[BrailleSchool]

I am getting a type mismatch on the highlighted. Do I need to set both the connection and recordset even though they are Dimmed public?

Public Sub CloseConnection()
    'Set m_ADORs = New ADODB.Recordset
    'Set m_ADOCon = New ADODB.Connection
    
    If [hl]m_ADORs[/hl] = adStateOpen Then
        m_ADORs.Close
    End If
    
    Set m_ADORs = Nothing
    
    If m_ADOCon = adStateOpen Then
        m_ADOCon.Close
    End If
    
    Set m_ADOCon = Nothing
End Sub