Database

Public Sub UpdateData(ByVal oiDataSet As DataSet, ByVal siSQL As String, Optional ByVal siTableName As String = Nothing)

        Dim oDataAdapter As New OleDbDataAdapter

        Try
            If mbPiDisposed = True Then
                Throw New ObjectDisposedException(msPiModuleName, "This object has already been disposed. You cannot reuse it.")
            End If

            oDataAdapter.SelectCommand = New OleDbCommand(siSQL, mcnPiConnection, mtrPiTransaction)

            Dim oCommandBuilder As OleDbCommandBuilder = New OleDbCommandBuilder(oDataAdapter)

            If siTableName = Nothing Then
                oDataAdapter.Update(oiDataSet)
            Else
                oDataAdapter.Update(oiDataSet, siTableName)
            End If
        Catch ex As Exception
            Throw New Exception(msPiExceptionMessage, ex)
        Finally
        End Try
    End Sub