Я использую ниже Код:
Public rs As New ADODB.Recordset
------------------------------------
If rs.State = 1 Then rs.Close
com.ActiveConnection = con
com.CommandText = "Select * from Table"
On Error Resume Next
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
Set rs = com.Execute
rs.Filter = "Filterdata" //not filtering Recordset in Win-7
Над кодом работает нормально в WIN-XP.
@ Remou: Например: предположим, что rs содержат "A"Значения «B», «C», «A», «C», «A» Я фильтрую данные только для получения значения «A».Мой код будет: rs.Filter = "A"