Public Function GetScalar(ByVal strSql As String) As String

Public Function GetScalar(ByVal strSql As String) As String

'Dim conDatos As New OracleClient.OracleConnection(strConnectionString)
Dim conDatos As New SqlClient.SqlConnection(strConnectionString)
Dim strResultado As String
Try
conDatos.Open()
'Dim scmDatos As New OracleClient.OracleCommand(strSql, conDatos)
Dim scmDatos As New SqlClient.SqlCommand(strSql, conDatos)

strResultado = "" & IIf(IsDBNull(scmDatos.ExecuteScalar()), "", scmDatos.ExecuteScalar())

Catch ex As Exception
Throw New Exception(ex.Message)
Finally
conDatos.Close()
End Try

Return strResultado

End Function