Public Function Delete(ByVal strSQL As String) As Long

Public Function Delete(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 Exception
lngRecsAfectados = 0
Me.DMLVolError = ex.Message
'Throw New Exception(ex.Message)
Finally
conDatos.Close()
End Try

Return lngRecsAfectados

End Function