*-- Declare the objects we'll use later, so that *-- IntelliSense can be used LOCAL oCat As adox.catalog LOCAL oTable As Adox.table LOCAL oConn As Adodb.connection LOCAL oRs As Adodb.recordset LOCAL oCmd As Adodb.command *-- Three ADOX objects are needed: *-- Catalog - equivalent to a DBC *-- Connection - Similar to an ODBC connection *-- Table - equivalent to a DBF oCat = CREATEOBJECT("adox.catalog") oConn = CREATEOBJECT("adodb.connection") oCmd = NEWOBJECT("adodb.command") *-- Create a catalog using a connection string *-- Values for Provider could also be: *-- Vfpoledb.1 *-- Vfpoledb oConn.ConnectionString = "Provider=Vfpoledb.vfpoledb;Data Source=.\TestDBC.dbc" oConn.Mode = 16 && adModeShareDenyNone oConn.Open oCmd.CommandText = "ox=GETOBJECT('WinNT://mydomain/myuser')" oCmd.ActiveConnection = oConn oCmd.Execute oCmd.CommandText = "ox.visible = .t." oCmd.Execute