Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Filtering a Recordset by using the Date type field

Sub FilterRecordset()     Dim rst As ADODB.Recordset     Set rst = New ADODB.Recordset     rst.ActiveConnection = CurrentProject.Connection     rst.CursorType = adOpenKeyset     rst.LockType = adLockOptimistic     rst.Open "Select * from Employees"     Debug.Print "Without Filter"     Do Until rst.EOF         Debug.Print rst("BirthDate")         rst.MoveNext     Loop     rst.Filter = "BirthDate >= #1/1/1977# and BirthDate <= #1/5/2007#"     Debug.Print "With Filter"     Do Until rst.EOF         Debug.Print rst("BirthDate")         rst.MoveNext     Loop     rst.Close     Set rst = Nothing End Sub