vb problem

hi
i m new in vb,so i need someone help immediately to complete my project on time.
my problem is that i have to compare date with two months value.for example i compare date1 with d1 andd2 s.t date1>=d1 and date1<=d2.depending upon the value returned i want the no of rows and columns in mshflexgrid.the code is shown below


Dim s1 As String
Dim s2 As String
Dim i As Integer
Dim aa As Integer
If rs.State = adStateOpen Then rs.Close
rs.Open "select count(*) as aa from table3 where date1>=#" & D1.Value & "# and date1<=#" & D2.Value & "# ", cn, adOpenKeyset, adLockOptimistic
If rs.State = adStateOpen Then rs.Close
rs.Open "table3", cn, adOpenDynamic, adLockOptimistic
adOpenDynamic, adLockOptimistic
MSHFlexGrid1.Rows = 18
MSHFlexGrid1.Cols = 8
s2 = "select * from table3 where date1>=#" & D1.Value & "# and date1<=#" & D2.Value & "#"
i = 1

Do While Not rs.EOF
MSHFlexGrid1.TextMatrix(i, 0) = rs!Date1
MSHFlexGrid1.TextMatrix(i, 1) = rs!customer_name
MSHFlexGrid1.TextMatrix(i, 2) = rs!trouble_ticket_no
MSHFlexGrid1.TextMatrix(i, 3) = rs!reported_by
MSHFlexGrid1.TextMatrix(i, 4) = rs!reported_to
MSHFlexGrid1.TextMatrix(i, 5) = rs!description_of_fault
If IsNull(rs!closetime) Then
MSHFlexGrid1.TextMatrix(i, 7) = " "
Else
MSHFlexGrid1.TextMatrix(i, 7) = rs!closetime
End If
i = i + 1
rs.MoveNext
Loop
rs.Close

when i debug this code then it shows rs!aa value=0.

What does your select string end up looking like?