جملة استعلام بين تاريخين وكمبوبوكس

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Dim cn2 As New ADODB.Connection
Dim rs2 As New ADODB.Recordset
	s = "provider =microsoft.jet.OLEDB.4.0;"
	s = s & "data source=" & App.Path & "\office_db.mdb"
	cn.ConnectionString = s
	cn.Open
	cn.Execute ("DELETE * FROM tbl_rpt_customers")
	SQL = "select * from tbl_alkhazna_sarf where date >=#" & Format(start_date, "yyyy/m/d") & "# And date<= #" & Format(end_date, "yyyy/m/d") & "# and value_for='" & cmb_customers.Text & "'"
	rs.Open SQL, cn, adOpenStatic, adLockBatchOptimistic
	rs.Requery

باستخدام آدو ADO

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
	s = "provider =microsoft.jet.OLEDB.4.0;"
	s = s & "data source=" & App.Path & "\office_db.mdb"
	cn.ConnectionString = s
	cn.Open
	cn.Execute ("DELETE * FROM tbl_rpt_customers")
	SQL = "select * from tbl_alkhazna_sarf where date >=#" & Format(start_date, "yyyy/m/d") & "# And date<= #" & Format(end_date, "yyyy/m/d") & "# and value_for='" & cmb_customers.Text & "'"
	rs.Open SQL, cn, adOpenStatic, adLockBatchOptimistic
	rs.Requery