Public Function GetSelect(ByVal strSql As String, Optional ByVal strTableName As String = "Tabla") As DataSet

Public Function GetSelect(ByVal strSql As String, Optional ByVal strTableName As String = "Tabla") As DataSet

'Dim daSelect As New OracleClient.OracleDataAdapter(strSql, strConnectionString)
Dim daSelect As New SqlClient.SqlDataAdapter(strSql, strConnectionString)
Dim dsDatos As New DataSet

Try
daSelect.Fill(dsDatos, strTableName)
daSelect.Dispose()
Return dsDatos
Catch ex As Exception
Throw New Exception(strConnectionString & " " & ex.Message & " " & strSql)
End Try
End Function