Public Function Insert(ByVal strSql As String) As Long

Public Function Insert(ByVal strSql As String) As Long

Dim lngRecsAfectados As Long
'Dim conDatos As New OracleClient.OracleConnection(strConnectionString)
Dim conDatos As New SqlClient.SqlConnection(strConnectionString)
Try
conDatos.Open()

'Dim scmDatos As New OracleClient.OracleCommand(strSql, conDatos)
Dim scmDatos As New SqlClient.SqlCommand(strSql, conDatos)

lngRecsAfectados = scmDatos.ExecuteNonQuery

Catch ex As DataException
lngRecsAfectados = 0
Me.DMLVolError = ex.Message
Catch ex As Exception
lngRecsAfectados = 0
If ex.Message.Contains("Violation of PRIMARY KEY") Then
Me.DMLVolError = "*UNIQUE*"
Else
Me.DMLVolError = ex.Message
End If
Finally
conDatos.Close()
End Try

Return lngRecsAfectados

End Function