Please the code below:
date1 = Format(Text1.Text, "dd/mmm/yy")
date2 = Format(Text2.Text, "dd/mmm/yy")
rs.Source = "select * from SaleHead where shcustno = '" & Combo1.Text & "' and OrderDate >= '" & date1 & "' AND OrderDate <= '" & date2 & "'"
Set rs.ActiveConnection = cn
rs.Open
:-------------------------------------------:
Please see the date1 to date2 statement
I've also tried #" & date1 & "#. It dosen't work at all.

Please

-Khamal-