Quellcode

Dim con As New MySql.Data.MySqlClient.MySqlConnection
    Dim cmd As New MySql.Data.MySqlClient.MySqlCommand
    Dim reader As MySql.Data.MySqlClient.MySqlDataReader
con.ConnectionString = "Data Source=localhost;Initial Catalog=datenbank;UID=benutzer;PWD=password"
        cmd.Connection = con
        cmd.CommandText = "SELECT * FROM tabelle"
        Try
            con.Open()
            reader = cmd.ExecuteReader()
Do While reader.Read()
' hier kommen deine abfragen rein
 Loop
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            con.Close()
        End Try