¿confusion al momento de buscar?

[principefreddy]

mira lo que le coloque... cuando la cedula es igual pero en la posicio (9) no es cero no me hace nada, (no me muestra el mensaje), de lo contrario si me hace los calculos- que me puede faltar?

c = "trim(cedulaempleado)='" & Trim(cedula.Text) & "'"
pempresa.Recordset.FindFirst c
If pempresa.Recordset.NoMatch Then
' aqui le digo que si las cedulas son iguales y en la posicion (9)= 0
' me haga los calculos...
If pempresa.Recordset(0) = cedula.Text And pempresa.Recordset(9) <> 0 Then
montoabonar = Val(monto.Text) * Abs(Text1.Text) / 100
montoabonar = Format(montoabonar, "##0")
agregar.Enabled = True
Command1.Enabled = False
monto.Enabled = False
Text1.Enabled = False
m_adeuda.Text = monto.Text
pempresa.Refresh
Else
MsgBox "Usted Tiene Un Prestamo Pendiente", vbInformation, "Prestamo"
Command2.Enabled = True
cedula.Text = ""
nombre.Text = ""
codigo.Text = ""
montoabonar.Text = ""
End If
End If
End Sub