Try it:
------------------

Dim db As Database
Dim tbl1 As Table
Dim dbName$, Connect$

Connect = "dBASE IV;" ' Specify database type
dbName = "D:\DBASEIV" ' Specify database directory

Set db = OpenDatabase(dbName, False, False, Connect)
Set tbl1 = db.OpenTable("Table1") ' Open table

------------------
smalig
[email protected]
smalig.tripod.com