No coinciden los tipos de datos en la expresión de criterios.

Estoy usando VB 6.0. Te comento lo que quiero hacer:
Resulta que manejo una tabla "VOLUNTARIOS" a la cual le he
agregado dos campos:FechaBaja y MotivoBaja para poder saber cuándo y porqué fue dado de baja un Voluntario. El código lo tengo en un botón de comando.
Lo que quiero es que al hacer clic en el botón me obligue a darle un motivo de baja, Para eso tengo un ComboBox y luego de seleccionar el motivo hago clic nuevamente en el botón y me lo daba de baja. (Antes me lo daba de baja ahora no y no sé porqué)
Este el parte del código:

If CmbMotivoBaja.ListIndex = -1 Then
    MsgBox "Seleccione un motivo de baja",
vbInformation, "MOTIVO BAJA VOLUNTARIO"
    Exit Sub
    Else
    'Actualizo la DB con el motivo de la baja.
    Motivo = CmbMotivoBaja.List(CmbMotivoBaja.ListIndex)
    strVolBaja = "UPDATE VOLUNTARIOS SET FechaBaja
    ='" & lblFecha.Caption & "',MotivoBaja = '" & Motivo
    & "' where NumVoluntario ='" & txtModVoluntario(0).Text & "'"
    Base.Execute (strVolBaja)
    'SI ES DADOR ENTONCES ACUTALIZO EL CAMPO
    If txtNumDador.Text <> "" Then
        strDadorBaja = "UPDATE DADORES SET Estado = " & "'Suspendido'" & " wherE " & "NumDador = " & txtNumDador.Text & ""
        Base.Execute (strDadorBaja) 
        'LA LÍNEA DE ARRIBA ES LA QUE ME DÁ ERROR. QUÉ ERROR TENGO EN LA CONSULTA???
        Else
        Exit Sub
    End If

BUENO AMIGO!!