if i used this code in some forms it gives me an error like, while it works for other forms

"method or data member not found"

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:

Thanx in tonnes
shashi