Public Function UpdateDataSet(ByVal strSQL As String, ByVal dtDatos As DataTable) As Boolean

Public Function UpdateDataSet(ByVal strSQL As String, ByVal dtDatos As DataTable) As Boolean

'Dim daUpdate As New OracleClient.OracleDataAdapter
Dim daUpdate As New SqlClient.SqlDataAdapter

'Dim cbUpdate As OracleClient.OracleCommandBuilder
Dim cbUpdate As SqlClient.SqlCommandBuilder
'Dim cnDataBase As New OracleClient.OracleConnection(strConnectionString)
Dim cnDataBase As New SqlClient.SqlConnection(strConnectionString)

cnDataBase.Open()
'cbUpdate = New OracleClient.OracleCommandBuilder(daUpdate)
cbUpdate = New SqlClient.SqlCommandBuilder(daUpdate)
'daUpdate.SelectCommand = New OracleClient.OracleCommand(strSQL, cnDataBase)
daUpdate.SelectCommand = New SqlClient.SqlCommand(strSQL, cnDataBase)
Try
daUpdate.Update(dtDatos)
Catch ex As Exception
Throw New Exception(ex.Message)
Finally
daUpdate.Dispose()
cnDataBase.Close()
End Try

Return True

End Function