Imports MySql.Data.MySqlClient
 
Public Class Form1
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
        'Definition ADO-Datenbank-Connection auf MySQL-Datenbank
        'Vorher über Projekt - Verweis hinzufügen - MySQL.Data integrieren
 
        Dim con As New MySqlConnection
        Dim cmd As New MySqlCommand
        Dim reader As MySqlDataReader
 
 
        con.ConnectionString = "server=xxx.xxx.xxx.xxx;" _
                    & "uid=xxx;" _
                    & "pwd=xxx;" _
                    & "database=xxxx;"
 
        cmd.Connection = con
 
        'SQL zum Testen
        cmd.CommandText = "Select * from sbb01_bziele;"
 
        Try
            'con.ConnectionString = myConnectionString
            con.Open()
 
            reader = cmd.ExecuteReader()
            lstViews.Items.Clear()
 
            Do While reader.Read()
                lstViews.Items.Add(
                    reader("SBBbzi_ziel") & " " & reader("SBBbzi_bez")
                    )
            Loop
            reader.Close()
            con.Close()
 
 
        Catch ex As MySql.Data.MySqlClient.MySqlException
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
End Class

---
Verwendete Programmversionen:
Windows 7 64 bit sowie Windows 10 Prof.
Visual Studio 13 Professional
Microsoft Prof. 2010 (= Version 14)