this statments
Dim xdata As Database
Dim xcon As Connection
Dim xstr As String
Dim xrst As Recordset

Set xcon = New Connection

With xcon
.Provider = "Microsoft.Jet.OLEDB.3.51"
.ConnectionString = "c:\vbapps\walmart\walmart1.mdb"
.CursorLocation = adUseNone
.Open
End With

Set xrst = New Recordset
xrst.Open "stores", xcon, adOpenKeyset, adLockOptimistic

With xrst
.MoveLast
.Find "storenumb='0005'"
MsgBox (xrst!storenumb)
End With

gives the error as

'the operation requested by the application is not supported by the provider'

any help is greatly appreciated

shashi