Error 94 al realizar un consulta con campos vacíos

Hola tengo este código que me ayuda a realizar una consulta entre vb6 y access pero pasa que cuando lo hago si me muestra los valores que extrae pero con el error de que hay campos vacíos. Como quito ese error .
Private Sub Command2_Click()
codigo = InputBox("Ingresa los datos que deseas buscar", "BUSCAR")
With tabla
If .BOF And .EOF Then
MsgBox " No existe ningun registro relacionado"
Else
.MoveFirst
End If
bandera = False
Do While Not .EOF
If codigo = !EMPLEADO Then
    Text1 = !id
    Text2 = !EMPLEADO
    Text3 = !TIPO_EQU
    Text4 = !NUM_SER
    Text5 = !DESCRIP
    Text6 = !MOD_MON
    Text7 = !MOD_MB
    Text8 = !MOD_PROC
    Text9 = !MEM_RAM
    Text14 = !MEM_DD
    Text12 = !SO_INST
    Text10 = !NOM_EQU
    Text13 = !OBS
    Text11 = !LIC_SO
    Text19 = !LOC_KBE
    DTPicker1 = !F_COMP
    DTPicker2 = !F_ASIG
    DTPicker3 = !F_ULTM
    Text15 = !OBS_A1
    Text16 = !OBS_A2
    Text17 = !OBS_A3
    Text21 = !OBS_A4
    Text20 = !OBS_M1
    bandera = True
    ElseIf codigo = !NUM_SER Then
    Text1 = !id
    Text2 = !EMPLEADO
    Text3 = !TIPO_EQU
    Text4 = !NUM_SER
    Text5 = !DESCRIP
    Text6 = !MOD_MON
    Text7 = !MOD_MB
    Text8 = !MOD_PROC
    Text9 = !MEM_RAM
    Text14 = !MEM_DD
    Text12 = !SO_INST
    Text10 = !NOM_EQU
    Text13 = !OBS
    Text11 = !LIC_SO
    Text19 = !LOC_KBE
    DTPicker1 = !F_COMP
    DTPicker2 = !F_ASIG
    DTPicker3 = !F_ULTM
    Text15 = !OBS_A1
    Text16 = !OBS_A2
    Text17 = !OBS_A3
    Text21 = !OBS_A4
    Text20 = !OBS_M1
    bandera = True
    End If
    .MoveNext
    Loop
        If bandera = False Then
    MsgBox " No se encontro el codigo buscado "
    End If
    End With
    End Sub