البحث لا يعمل انجدونى

V_TEXT = Text1.Text
v_date = Text2.Value

wiz.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\wizarya.mdb;Persist Security Info=False"
wiz.Open
mysea = "val(NO) = " & Val(Text1.Text) & "' and date =" & v_date
des.Open "select * from design where " & mysea, wiz, adOpenStatic, adLockReadOnly

If des.RecordCount > 0 Then
    MsgBox ("ãÓÌá ÞÈá ßÏå")
    Text1.Text = ""
End If
des.Close
wiz.Close