|
'In the Code window, enter the FltrRecords procedure as shown below.
Sub FltrRecords()
Dim conn As ADODB.Connection
Dim myRecordset As ADODB.Recordset
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\mydb.mdb"
Set myRecordset = New ADODB.Recordset
With myRecordset
.Open "Customers", conn, adOpenKeyset, adLockOptimistic
.Filter = "City='Madrid' and Country='Spain'"
End With
myRecordset.Filter = adFilterNone
MsgBox "Filter was removed. The table contains " & myRecordset.RecordCount & " records."
myRecordset.Close
Set myRecordset = Nothing
conn.Close
Set conn = Nothing
End Sub
|