Using objConnect As New SqlConnection(GetConnectionString)
                objConnect.Open()
                Dim transact As SqlTransaction = objConnect.BeginTransaction()

                If rowCount > 0 Then
                    Using bc As New SqlBulkCopy(objConnect, SqlBulkCopyOptions.Default, transact)

                        With bc
                            .DestinationTableName = "[" + "dbo" + "].[" + strDataBaseTableName + "]"
                            .BulkCopyTimeout = 5000
                            .BatchSize = 100
                            .NotifyAfter = 1000
                        End With

                        AddHandler bc.SqlRowsCopied, New SqlRowsCopiedEventHandler(AddressOf OnSqlRowsCopied)

                        Try
                            Dim isDone As Boolean = False
                            bc.WriteToServer(ds.Tables(0))
                            transact.Commit()

                            isDone = True
                            If isDone Then
                                Me.tslblProgress.Text = "Импорт: " + Me.rowCount.ToString() + "/" + Me.rowCount.ToString() + " строк"
                                MessageBox.Show("Операция импорта выполнена успешно!" & vbCrLf & "вствлено " _
                                                + Me.rowCount.ToString() + " строки.", "Импорт", MessageBoxButtons.OK, MessageBoxIcon.Information)
                                ReLoad()
                            Else
                                Me.tslblProgress.Text = "ОШИБКА: Ошибка чтения и вставки записей!"
                            End If
                        Catch ex As Exception

                            transact.Rollback()
                            'MsgBox(ex.ToString, MsgBoxStyle.Critical, "Ошибка вставки")
                            Dim faultyDataRow As DataRow = ds.Tables(0).Rows(0)
                            errorMessage.AppendFormat("Ошибка: {0}{1}", ex.Message, Environment.NewLine)
                            errorMessage.AppendFormat("№ строки: {0}", Environment.NewLine)
                            'For Each column As DataColumn In ds.Tables(0).Columns
                            '    errorMessage.AppendFormat("" & vbTab & "Column {0} - [{1}]{2}", column.ColumnName, faultyDataRow(column.ColumnName).ToString, Environment.NewLine)
                            'Next

                            MsgBox(errorMessage.ToString, MsgBoxStyle.Critical, "Ошибка вставки")


                        Finally
                            dtr.Close()
                        End Try

                    End Using
                Else
                    Me.tslblProgress.Text = "Ошибка: Нет строк для вставки записей!"
                End If
            End Using

 Catch ex As Exception
 transact.Rollback()
 Finally
 dtr.Close()
End Try

Try
 Dim isDone As Boolean = False
bc.WriteToServer(ds.Tables(0))
 transact.Commit()

Else
 Me.tslblProgress.Text = "ОШИБКА: Ошибка чтения и вставки записей!"

End If