how to show result 'show slave status' from mysql on vb6

i try to check replication status on mysql using vb6, here is my code

Dim rs As New ADODB.Recordset
Set rs = ExecSQL(GetDSN, "show slave status")
If rs.RecordCount > 0 Then
    MsgBox ("xxx")
End If

here is error description

Data Provider or other service returned an E_FAIL status.

but i dont know how to get the status from that query, because there is no problem when using query like select, edit , etc tell me how to show the result on my vb6,, thanks