[ناجي إبراهيم]

السلام عليكم...

كود :

Dim SQL As String

SQL = "SELECT * FROM table_name WHERE (field1 = '" & Text1.Text & "') AND (field2 = #" & Format$(CDate(Text2.Text), "mm/dd/yyyy") & "#)"

RS.Open SQL, ...

حيث table_name هو اسم الجدول.
field1 اسم حقل الاسم.
field2 اسم حقل التاريخ.
RS اسم الـ Recordset التي تستعملها.

نرجو الاستفادة و السلام.