controlar error de un recordset

[guif]

poniendo esto me continua dando el error de antes y aparte no me entra en el MSGBOX

Código:

sql2 = sentencia SQL......

Set rs = cnn.Execute(sql2)
Do While Not rs.EOF
If rs("clave") = "" Then
MsgBox "Dato null"
Exit Sub
Else
        list1.AddItem (rs("clave"))
        inventaris.AddItem (rs("clave"))
        rs.MoveNext
End If
End Sub