将大容量XML用bulkload批量导入sql server 2000数据库

procedure TForm1.Button1Click(Sender: TObject);
var
  ObjBL, ObjConn: OleVariant;
begin
  ObjBL := CoSQLXMLBulkLoad.Create;
  ObjConn := CoConnection.Create;
  ObjConn.Provider := 'SQLOLEDB';
  ObjConn.Open('server=(local); database=AccountantMIS; uid=sa;');
  // ObjConn.Execute('DELETE FROM letters');
  ObjBL.ConnectionString := 'provider=SQLOLEDB.1;data source=oops;database=DFW;uid=sa;pwd=';
  ObjBL.ErrorLogFile := 'Error.xml';
  objBL.Execute('letters.xsd', 'letters.xml');
  ObjConn := NULL;
  ObjBL := NULL;
end;