code pour la date

je cherche un code qui me permettras d'afficher les donnee de la base de donnee par date
c'est a dire par exemple

du 01/10/2010 au 30/10/2010

voici le code que j'ai écrit merci de le corriger pour moi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
z = 1
 
'rst1.Open " select * from T_mouchard  ", cnx, adOpenStatic, adLockOptimistic, adCmdText
 
If rst1.RecordCount > 0 Then
rst1.MoveFirst
While Not rst1.EOF
 
    If rst1("dateconnexion") >= txtfields(3).Text And rst1("dateconnexion") <= txtfields(4).Text Then
 
    msf.TextMatrix(z, 1) = rst1.Fields(0)
    msf.TextMatrix(z, 2) = rst1.Fields(1)
    msf.TextMatrix(z, 3) = rst1.Fields(2)
    msf.TextMatrix(z, 4) = rst1.Fields(3)
    msf.TextMatrix(z, 5) = rst1.Fields(4)
    z = z + 1
    rst1.MoveNext
    Else
    rst1.MoveNext
    End If
Wend
 
Else
msf.Clear
MsgBox "pas d'enrregistrement trouve", vbOKOnly + vbInformation, "information"
End If
rst1.Close