Dim rs78 As Recordset4
Dim data78 As Database

Set data78 = OpenDatabase("c:\kskvb\walmart1.mdb")
Set rs78 = data78.OpenRecordset("stores", dbOpenTable)

With rs78
.Index = "primaryKey"

.Seek "=", "0015"

If .NoMatch Then
GoTo 10
End If
MsgBox ("ok")
End With
10:

this's the code that i have used.

can u tell me where you think i have erred.

thanks a tonne

shashi