Public Function GetDataTable(ByVal strSql As String) As DataTable

Public Function GetDataTable(ByVal strSql As String) As DataTable

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

If dsDatos.Tables.Count > 0 Then
Return dsDatos.Tables(0)
Else
Return Nothing
End If

End Function