VB中OLE调用的优化方法
#1 一、利用WITH语句减少重复调用。
为了设置单个对象的多个特性，可以使用WITH END WITH减少激活引用链设置特性的次数，在这种情况下，甚至不需要定义对象类型的临时对象。例如：DBEngine.WorkSpace（0）.Databases（0）.RecordSet.Fields（0）.Name=″jx″
DBEngine.WorkSpace（0）.Databases（0）.RecordSet.Fields（0）.Height=″1.75″
可以这样赋值：WITH DBEngine.WorkSpace（0）.Databases（0）.RecordSet.Fields（0）.Name=″jx″
.Height=″1.75″
END WITH
很明显，减少了执行赋值所必须做的OLE对象查询的次数。
#1 二、使用可以提供的最特定的对象。
在VB中访问任何对象的模型通常要求重复使用OBJECT.PROPERTY语句，那么这个引用链将变得很长。
DBEngine.WorkSpace（0）.Databases（0）.RecordSet.Fields（0）.Name
在上面这个序列中每个点代表VB为了访问下一个元素要求的OLE查找。如果将这样一条语句放到循环中，会产生大量不必要的查找：
例如For I％=0 TO DBEngine.WorkSpace（0）.Databases（0）.RecordSet.Field.Count－1
Print DBEngine.WorkSpace（0）.Databases（0）.RecordSet.Fields（I％）.Name
Next
如果通过使用可用的最特定的对象类型，可以大大减少同一个循环的开销。程序变换如下：
DIM X AS Fields
DIM Y AS Field
SET X=DBEngine.WorkSpace（0）.Databases（0）.RecordSet.Fields（0）
FOR EACH Y IN X
Print F.Name
Next
#1 三、最小化跨进程OLE调用。
OLE Automation对程序内的对象的调用总是比跨进程调用要快，如果处理可以在一个程序内完成，就会比调用另一个应用程序快。如果进行跨进程OLE Automation，一个硬输入的（DIM X AS SPECIFICTYPE）而不是“AS OBJECT”的对象会大大减少开销，因为只需一个跨进程调用。
#1 四、使用进程内而不是进程外的OLE服务器。
进程外OLE服务器（使用MAKE EXE建立的OLE服务器）比进程内OLE服务器（使用MAKE DLL建立的OLE服务器）慢得多。