سؤال بحصوص ado

Dim db As New ADODB.Connection, rs As New ADODB.Recordset
----------------------------------------------------------------------------------------------
Private Sub Command1_Click()
If rs.State = adStateOpen Then rs.Close
SQL = "SELECT * From Mezania where [Date] Between #" & Text2 & "# and #" & Text1 & "#"
SQL1 = "SELECT * From Mezania where [Kemia] = " & Trim(Text3.Text) & ""
rs.Open SQL, db, adOpenStatic, adLockPessimistic
rs.Open SQL1, db, adOpenStatic, adLockPessimistic
Set MSHFlexGrid2.Recordset = rs
End Sub
------------------------------------------------------------------------------------------------
Private Sub Form_Load()
db.Provider = "Microsoft.Jet.OLEDB.4.0;"
db.Open App.Path & "\db.mdb"
rs.Open "[Mezania]", db, adOpenStatic, adLockPessimistic
'
Set MSHFlexGrid1.Recordset = rs
End Sub

--------------------------------------------------------------------------------------------------------------

فى كود البحث اريد اظهار نتيجة البحث مابين تارخين حسب حقل معين

ارجوا المساعدة

من فضلكم

ولكم منى فائق الاحترام