oAdoConn = CREATEOBJECT([ADODB.Connection]) WAIT WINDOW oAdoConn.Version2.8 here
>lcStr = "SELECT 0"+CHR(13)+CHR(10)+"USE Test EXCLUSIVE"+CHR(13)+CHR(10)+"INDEX ON Fld1 TAG Test" >IF NOT DIRECTORY("c:\test") > MD ("c:\test") >ENDIF >CREATE TABLE c:\Test\Test (Fld1 I) >EXECSCRIPT(filetostr('c:\test\test.txt')) >DELETE TAG all >CLOSE ALL >STRTOFILE(m.lcStr,"c:\test\test.txt") >oAdoConn = CREATEOBJECT([ADODB.Connection]) >oAdoConn.ConnectionString = [Provider=vfpoledb.1;Data Source=c:\test\;Collating Sequence=machine;] >oAdoConn.Open() > >oAdoComm = CREATEOBJECT([ADODB.Command]) >oAdoComm.ActiveConnection = oAdoConn >oAdoComm.CommandText = [EXECSCRIPT("SELECT 0"+CHR(13)+CHR(10)+"USE Test EXCLUSIVE"+CHR(13)+CHR(10)+"INDEX ON Fld1 TAG Test")] >oAdoComm.Execute()>