controlar error de un recordset

[guif]

Estoy haciendo una consulta a una BBDD SQL (en otros posts se pueden ver) y me gustaria controlar 2 possibles errores:

1.- Si el valor es NULL me mande un MsgBox y que me salga de la funcion.
2.- Si no encuentra valores (que no sea valido) que me mande un MsgBox y que me salga de la funcion.

El codigo que tengo en el boton es:

Código:

Private Sub Button1_Click()
    Dim cnn As ADODB.Connection
    Dim sql As String
    Dim rs As Recordset
    Dim campo As ADODB.Field
    Set cnn = CreateObject("ADODB.Connection")
    cnn.ConnectionString = "DSN=qsmt;uid=qsmtcons;pwd=qsmtcons;"
    cnn.Open
    sql2 = "select es.DESCRIPCION_ESTADO ESTAT,................"    
    Set rs = cnn.Execute(sql2)
    rs.MoveFirst           
    Do While Not rs.EOF
            list1.AddItem ("DATOSSSSSSSSSSSSS: ") 
            rs.MoveNext
    Loop
End Sub

Cuando falla, siempre se me marca de color amarillo la linea:
sql2 = "select es.DESCRIPCION_ESTADO ESTAT,................"

gracias!