But possible to use a seek on multi fields, for example f1, and f1?
....my pseudo code
Code: Select all
1. Dim cnn As New ADODB.Connection
2. Dim rst As New ADODB.Recordset
3.
4. cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
6. "Data Source=C:\MYDIR\data\ct1.mdb;"
7.
8.
9. rst.Open "tblClubs", cnn, adOpenKeyset, adLockReadOnly, _
10. adCmdTableDirect
11.
12.
13. 'rst.Index = "F1"
14. rst.Index = Array("f1", "f2")
15.
16. 'rst.Seek AAA, adSeekFirstEQ
rst.Seek Array(strStore1, strTPC1), adSeekFirstEQ
17.
18.
19. If Not rst.EOF Then
20. Debug.Print rst.Fields("area1").Value
21. End If
22.
23.
24. rst.Close
f1 and f2 are indexed.