>Local lnSec1,lnSec2,lnSec3,lnSec4,lnSec5,loDI,loCI >Local loC As ADODB.Connection >Local loD As ADODB.RecordSet >lnSec1=Seconds() >loC=CreateObjectEX("ADODB.Connection","","") >loCI=GetInterface(loC,"_Connection") >loCI.ConnectionString="Provider=Advantage OLE DB Provider; Data Source=\\server1\apps\ads\FOPro.add; User ID=adssys; Password=teeka;" >loCI.CursorLocation=2 >loCI.Open >lnSec2=Seconds() >*loDI=loCI.Execute("Select * From UPDatDic") >loD=CreateObjectEX("ADODB.RecordSet","","") >loDI=GetInterface(loD,"_RecordSet") >loDI.Open("Select * From UPDatDic",loCI,0,3) >lnSec3=Seconds() > >Use dbf\updatdic >Copy Structure to tmp\updatdic >Use tmp\UPDatDic >With loDI.Fields > lnSec4=Second() > loAllowNull=.Item("AllowNull") > loAType=.Item("AType") > loAutoInc=.Item("AutoInc") > loBackColor=.Item("BackColor") > loBoundCol=.Item("BoundCol") > loCDXFilter=.Item("CdxFilter") > loCDXKey=.Item("CDXKey")...... > >>