Visual Basic.NET - Extraer un dato en una variable en VB .Net con MySQL y MySqlClient

Module Biblioteca

    'Creamos la conexion a la BBDD

    Public Conexion As New MySqlConnection

    'Creamos el procedimiento para llamar a la consulta

    Public Sub Conectar()

        Try

            'Cerramos la conexion a la BBDD

            Conexion.Close()

            'Establecemos los parametros de la conexion a la BBDD

            Conexion.ConnectionString = "server=XXXX; database=XXX; user=XXX; password=XXX;"

            'Abrimos la conexion a la BBDD

            Conexion.Open()

            'Imprimimos un mensaje como que se ha conectado satisfactoriamente a la BBDD MySQL

            MessageBox.Show("Conexion a la BBDD MySQL realizada")

        Catch ex As Exception

            'En caso de que no se conecte mandamos un mensaje con el error lanzado desde la BBDD MySQL

            MsgBox(ex.Message)

        End Try

    End Sub

    'Creamos un procedimiento que sea la funcion que seleccionará los datos de la BBDD (SELECT)

    Public Function Seleccion_de_datos(ByRef SQL As String) As DataSet

        'Llamamos al procedimiento Conectar() para conectarnos a la BBDD MySQL

        Conectar()

        'Declaramos las cariables que nos van a hacer falta

        Dim Adaptador As New MySqlDataAdapter(SQL, Conexion)

        Dim Rsdatos As New DataSet

        'Adaptador va a rellenar la variable Rsdatos con "DATOS"

        Adaptador.Fill(Rsdatos, "DATOS")

        'Devolvemos los datos que saquemos

        Return Rsdatos

        'Cerramos la conexion a la BBDD MySQL

        Conexion.Close()

    End Function

End Module

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'Declaramos las variables que nos van a hacer falta

        Dim Consulta As String = "CONSULTA QUE DEVUELVE UN SOLO RESULTADO CONSISTENTE EN EL VALOR DE UN CAMPO DE UN REGISTRO ESPECIFICO;"

        'Realizamos una consulta a la BBDD MySQL declarando la variable que va a contener el dato extraido

       xxxxxxxxxxxx Aqui es donde tengo que meter el dato que necesito en una variablexxxxxxxxxxxxxxxxxxxxxxx

        Se que debe ser algo como esto:  VARIABLE_QUE_SEA= Seleccion_de_datos(Consulta)

        'Cerramos la conexion a la BBDD MySQL

        Conexion.Close()

    End Sub

End Class

'Establecemos los parametros de la conexion a la BBDD

        Dim Configuracion_conexion As String = "server=XXXXXXXXX; database=XXXXXXXXXX; user=XXXXXXXXXX; password=XXXXXXXXXXX;"

        'Instanciamos un objeto conexion (MySqlConnection) y le pasamos de parametro la variable de configuracion de la conexion con la BBDD MySQL

        Dim Conexion As New MySqlConnection(Configuracion_conexion)

        'Instanciamos un objeto de comando (MySqlCommand) y le pasamos de parametros el comando select y la conexion

        Dim Consulta As New MySqlCommand("AQUI COLOCAMOS LA SENTENCIA SELECT", Conexion)

        'TRY-CATH para capturar los posibles errores que haya

        Try

            'Nos aseguramos que no exista ninguna conexión abierta previa

            If Not Conexion Is Nothing Then Conexion.Close()

            'Abrimos conexión 

            Conexion.Open()

            'Declaramos la variable (De tipo entero) que contendrá los datos de los campos de los registros

            Dim Datos As MySqlDataReader = Consulta.ExecuteReader

            'EjecutAmos el comando CONSULTA

            If Datos.Read Then

                'Declaramos y llenamos

                Dim VARIABLE_QUE_CONTENDRA_EL_VALOR As String = Trim(Datos("CAMPO_QUE_QUERAMOS_DE_LA_TABLA"))

                'Vemos que contiene la variable asignada para la direccion URL extraida

                MessageBox.Show(VARIABLE_QUE_CONTENDRA_EL_VALOR )

                'Imprimimos en el cuadro de texto la direccion URL

                TextBox1.Text = VARIABLE_QUE_CONTENDRA_EL_VALOR

                'Lanzamos la direccion web al navegador para imprimerla en pantalla

                'WebBrowser1.Navigate(VARIABLE_QUE_CONTENDRA_EL_VALOR )

            End If

        Catch ex As Exception

            'Lanzamos un mensaje de alerta si hay algun error

            MsgBox(ex.Message, MsgBoxStyle.Critical)

        Finally

            'Cerramos la conexion a la BBDD MySQL

            Conexion.Close()

            'Eliminamos de la memoria el objeto CONSULTA que habiamos creado

            Consulta = Nothing

        End Try