Somthing like this: (pass in the currentdatatable fo your BO)

Private Sub bulkLoadFromMultipleTables(ByVal dtToInsert As DataTable)

Dim x As DateTime = DateTime.Now

Using destinationConnection As SqlConnection = _

New SqlConnection(MicroFour.StrataFrame.Data.DataLayer.DataSources("sql").ConnectionString)

destinationConnection.Open()

Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(destinationConnection)

bulkCopy.DestinationTableName = _sqlTable.Trim

Try

'bulkCopy.NotifyAfter = 10000

'bulkCopy.SqlRowsCopied += New SqlRowsCopiedEventHandler(s_SqlRowsCopied)

'should already match due to the join process and field aliasing done

For Each row_conversionrule As BUSINESS.bo_mapfields In Me.Bo_mapfields.GetEnumerable()

bulkCopy.ColumnMappings.Add(row_conversionrule.mapf_sqlfield, row_conversionrule.mapf_sqlfield)

Next

bulkCopy.WriteToServer(dtToInsert)

bulkCopy.Close()

Dim y As DateTime = DateTime.Now

Dim diff As TimeSpan = y - x

MsgBox("seconds: " & diff.Seconds & ":" & diff.Milliseconds)

Catch ex As Exception

MsgBox(ex.ToString)

Finally

' Close the SqlDataReader. The SqlBulkCopy

' object is automatically closed at the end

' of the Using block.

End Try

End Using

End Using

End Sub