controlar error de un recordset

[guif]

He ampliado el codigo un poco pero tampoco me funciona.
Me gustaria poner 3 preguntas sobre esto:

1.- Tengo que poner Exit Function??? Estoy dentro de un boton, por lo tanto creo que no estaria bien...
2.- Si no pongo ningun valor, al hacer un Debug me da el siguiente error: run-time error '13' Type mismatch
3.- Y si el valor no es valido?? Puede ser nullo pero me gustaria tambien detectar que si no existe me lo diga.

Código:

Do While Not rs.EOF
If IsNull(rs("clave")) Then
MsgBox "Dato null"
Exit Function
list1.AddItem (rs("clave"))
inventaris.AddItem (rs("clave"))
rs.MoveNext
Loop