Set ObjSvr = New SQLDMO.SQLServer ObjSvr.Connect MASTER_DATASOURCE, MASTER_USERID, MASTER_PASSWORD 'ServerName, "sa", "" Set mObjBC = New SQLDMO.BulkCopy With mObjBC .DataFileType = SQLDMODataFile_TabDelimitedChar If sPrinterType = "KVM4350" Then .DataFilePath = "C:\" & psFilePath Else .DataFilePath = psFilePath End If .UseBulkCopyOption = True .ImportRowsPerBatch = 10000 End With mObjBC.SuspendIndexing = True mObjBC.UseBulkCopyOption = True frmMDIMain.sbStatusBar.Panels(1).Text = "Copying data into database..." oConn.Execute "sp_dboption tempdb, 'select into/bulkcopy'", True ObjSvr.Databases("tempdb").Tables("DATA_TABLE").ImportData mObjBC oConn.Execute "sp_dboption tempdb, 'select into/bulkcopy'", False frmMDIMain.sbStatusBar.Panels(1).Text = "Data complete!"