Visual Basic - No entiendo que pasa

holaa a todos tengo el siguiente problema
en access cree un vinculo con excel y cuando le digo que me lea toda la fila del nombre de access me mande ell mensaje uso no valido de Null
que pasa.
aqui les mando el codigo a ver si me ayudan
Private Sub Form_Load()
'Abre la base de datos de Access
Dim Base As Database
Dim Buscar As Recordset
Set Base = OpenDatabase("E:\bd2.mdb")
Set Buscar = Base.OpenRecordset("fichas")
'Abre las columnas seleccionada
With Buscar
.MoveFirst
Do While Not .EOF
Combo4.AddItem ![NombreConsultores]
.MoveNext
Loop
End With
End Sub
uyudenme plis
gracias a todos

Yo empleo VB5 y cuando se me dá tal problema es porque algún ó algunos campos de un Registro es nulo.
En tal caso a la línea de código:
Combo4.additem ![nombreconsultores] le añadiría: & ""

Espero poder ayudarte.

Estoy de acuerdo con fran, haz lo k te dice o asegurate k no comparas ningun campo k no contenga ningun valor, mejor k ademas de añadir "" añadas tb " " con el espacio para asegurarte k no falla.

Un saludo

HOLA..

OTRA ALTERNATIVA...

IF Isnull(!NombreConsultores] then
Combo4.AddItem " "
else
Combo4.AddItem ![NombreConsultores]
End if

ESPERO TE SIRVA

SALUDOS
ISIDROALMAGUER(IA)