Error 2501 en tiempo de ejecución

Hola a todos

es mi primera pregunta, estuve buscando en otras respuestas de este error pero no me sirve la linea de código "On Error Resume Next", ya que simplemente no hace nada... Es extraño, tengo un formulario de búsqueda donde se puede buscar por Rut y por código del crédito, normalmente me funciona, el tema está que por alguna razón a veces me lanza este error, ya no sé que hacer y tengo que entregar mi avance dentro de poco, el código para que lo entiendan es este
Private Sub btnBuscar_Click()
If txtCodCre.Value <> "" Then On Error Resume Next DoCmd.OpenForm "FRM_CONVENIO", acNormal, , "[CODCRE]=" & Me.txtCodCre.Value
txtRut.Enabled = False Else If txtRut.Value <> "" Then On Error Resume Next DoCmd.OpenForm "FRM_CONVENIO", acNormal, , "[ROLUNI]=" & Me.txtRut.Value
txtCodCre.Enabled = False Else If txtCodCre.Value = "" And txtRut.Value = "" Then MsgBox ("Ingrese valor en algún campo") End If End If End If
End Sub
Saludos