>>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")...... >> >>>>