'aggiungo il riferimento a mysqldrivercs e lo importo per comodità
Imports MySQLDriverCS

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'creo la connessione al db
        Dim myconn As New MySQLConnection(New MySQLConnectionString("host", "db", "user", "pw").AsString)
        'se la connessione riesce...
        myconn.Open()
        'attende il tentativo di apertura
        Application.DoEvents()
        'se la connessione si è aperta correttamente
        If myconn.State = ConnectionState.Open Then
            'creo un command per eseguire la mia query
            Dim myc As New MySQLCommand
            'ed il mio recordset (datareader)
            Dim rs As MySQLDataReader
            'specifico al command quale connessione usare
            myc.Connection = myconn
            'e poi gli do in "pasto" la mia query
            myc.CommandText = "SELECT * FROM nometabella"
            'metto il risultato nel recordset
            rs = myc.ExecuteReader
            'stampo i risultati
            While rs.Read
                Debug.Write(rs.GetString(rs.GetOrdinal("nomecampo")))
            End While
        End If
    End Sub
End Class