Hi,
I have a problem using the seek command, here is the code:
Dim rstQuest As Recordset
Dim dbsBDC As Database
Set dbsBDC = OpenDatabase("BDC.mdb")
Set rstQuest = dbsBDC.OpenRecordset("Questionnaire", dbOpenTable)
With rstQuest
.Index = "ID"
.Seek "=", Me.ID
If .NoMatch Then...