Visual Basic - busquedad

hola amigos como estan una consulta :
uso esta estructura de consulta sql para poder realizar una busuqedad buneo esta funciona bien pero el problema esta cuando no encuenra datos o son nulos no me sigue buscando los demas de la lista

Public Property Get buscaODONTO(ByVal cod As String) As admision
On Error GoTo UPD
Dim rs As New ADODB.Recordset
rs.Open "select *from FATENCIO WHERE DOC1 like '" & Trim(cod) & "'", cn
If Not (rs.EOF And rs.BOF) Then
buscaODONTO.codi = rs.Fields("CODC").Value
buscaODONTO.serv = rs.Fields("SERV").Value

" en esta parte si encuentra "FEC_HOSP como nulo o vacio se salta defrente UPD:
End Property y no me realiza las demas dejandome los campos de mi modulo en blanco como si no existieran existe alguna manera de controlar esto de ser asi les pido ayuda porfavor "

buscaODONTO.fechosp = rs.Fields("FEC_HOSP").Value
buscaODONTO.fecalta = rs.Fields("FEC_ALTA").Value
buscaODONTO.codmedodo = rs.Fields("COD_MEDODO").Value
buscaODONTO.CODE = rs.Fields("CODE").Value
buscaODONTO.nropoli = rs.Fields("NRO_POLI").Value
buscaODONTO.deduci = rs.Fields("DEDUCIBLE").Value
buscaODONTO.moneda = rs.Fields("MONEDA").Value
buscaODONTO.coase = rs.Fields("COASEGURO").Value
End If
Set rs = Nothing
Exit Property
UPD:
End Property

Beto intenta en poner este codigo a las lineas que te da error
Transaccion.Documento = IIf(IsNull(rsWork!CAMPO), 0, rsWork!CAMPO)
Lo que hago aqui es que si el valor que me devuelve es nulo le asingo 0 si no es asi le asigno el valor que recupera.

O si quieres monoterear tu codigo ponle este codigo
On Error GoTo rsError_Handler
rsError_Handler:
Screen.MousePointer = vbDefault
'------------------------------
'Si ocurre un error, muestra mensaje del posible error producido
Msg = "Se ha producido el siguiente Error: " & vbCr & _
"Origen : " & Err.Source & vbCr & _
"Error N° : " & Err.Number & vbCr & _
"Descripcion : " & Err.Description & vbCr
Estilo = vbCritical + vbOKOnly
Título = "Error en Tiempo de Ejecución"
MsgBox Msg, Estilo, Título
Err.Clear

Saludos
Manuel Colca
Lima - Perú