Try this.

Set db1 = OpenDatabase("c:\DATA\", False, False, "Foxpro 2.6")
Set rstitems = db1.OpenRecordset("mytable")

Hope this works.