Visual Basic - QUE PASA CON ESTO

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

lo mas seguro es que unos de los registros tiene un valo null y no puede hacer una additem con un null.
Prueba a poner:
Combo4.AddItem ![NombreConsultores] & ""

Tambien puedes probar la siguiente linea:

if not IsNull(![Nombre Consultores]) then combo4.additem ![Nombre Consultores]

Saludos