Problema con funcion

[Frehley]

Hola, aca vengo a postear mi problema:

Tengo un formulario en el que tengo que ingresar unos datos para despues guardarlos, ente ellos Poliza y Endoso, ambos son numéricos.

Quiero hacer que cuando Poiliza o Endoso pierdan el foco automaticamente busque en la tabla para ver si eso datos no fueron ingresados anteriormente.

Por ejemplo:
Poliza: 239356
Endoso: 0

Los busco en esta tabla


No importa si Poliza o Endoso fueron ingresados antes, de hecho una poliza se puede repetir varias vecez pero con diferente endoso y viceversa, lo importante es que esten en el mismo registro (fila), ahi es cuando no debe permitirlo (Si miran 0 se repite varias vecez)



El codigo que tengo hecho (y no funciona) es este:

Private Sub Poliza_LostFocus()
Dim x As Boolean
x = Existe(Poliza, Endoso, cmdAgregar)
End Sub

Private Sub Endoso_LostFocus()
Dim x As Boolean
x = Existe(Poliza, Endoso, cmdAgregar)
End Sub



Option Compare Database

Public Function Existe(Poliza As TextBox, Endoso As TextBox, Agregar As CommandButton) As Boolean
Dim strsql As String
Dim rs As ADODB.Recordset

strsql = "Select Poliza, Endoso From [TBL_Polizas_Recibidas] Where Poliza = " & Poliza.Text & " And Endoso = " & Endoso.Text
Set rs = CodeProject.Connection.Execute(strsql)
If Poliza.Text = "" And Endoso.Text = "" Then Exit Function

If Not rs.EOF Then
MsgBox "No puede continuar." & vbCrLf & "La poliza y el endoso ingresados ya existen." & vbCrLf & "Por favor modifique los datos ingresados", vbExclamation, "Error!"
Agregar.Enabled = False
Existe = True
Else
Agregar.Enabled = True
Existe = False
End If
MsgBox "paso por la funcion"
End Function

Espero que me puedan dar una mano ya que es urgente.

Muchas gracias!

[ManuNic]

"Select Poliza, Endoso From [TBL_Polizas_Recibidas] Where Poliza = " & poliza.Text & " And Endoso = " & Endoso.Text & ""