Seeking

[rezania]

Hi
I am having difficulties using SEEK statement on a recordset.
I use Jet OLEDB ver 4.0. with Access 2000.
The message says the provider does not support this.
How can I get around this? sample codes are welcomed.
thanks
Rezania

[parksie]

Why do you need to SEEK? Do you just want to return all the recordset items?

[Clunietp]

the FIND method is easier to use...why exactly do you need to use SEEK?

Find method:

    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=nwind2k.mdb"
    
    rs.CursorLocation = adUseClient
    rs.Open "Select * from Customers", cn, adOpenStatic, adLockReadOnly, adCmdText
    
    rs.Find "[CustomerID] = 'ALFKI'"
    
    If rs.EOF Then
        MsgBox "Not Found!"
    Else
        MsgBox "Found!"
    End If