Greetings!

I am using find command in vb6 using to conditional statement.

Call dbconek
With ar
.Open "Select *From numgroup", strconek, adOpenStatic, adLockOptimistic
.Find "numero = '" + bet + "' And "draw_date = " & DateValue(vdrawdate.Text) & "", 0, adSearchForward
If Not .EOF Then
msgbox "record is existing"
Else
msgbox "record is not existing"
End If
End With

I received error from .find command "Type mismatch Error 1"

my datafield
numero -----> string
draw_date -----> short date

my variables
bet ------------> string
vdrawdate.text --------> as textbox

the error comes from draw_date and vdrawdate.

anybody can help me or there is any other solution.

thank in advance