Connection = "server=" + host + ";uid=" + user + ";pwd='" + password + _
  "';database=" + database + ";Allow Zero Datetime=true;"

dim MyConn As MySqlConnection
MyConn.ConnectionString = main.Settings.ConnectionString 'Connection String 
' wird gefüllt
MyConn.Open()

Dim myData As New DataTable
Dim myAdapter As New MySqlDataAdapter
Dim cmd As New MySqlCommand
 
cmd.Connection = myConn
cmd.CommandText = "SELECT * FROM tabelle"
 
myAdapter.SelectCommand = cmd
myAdapter.Fill(myData)
 
For Each dRow As DataRow In myData.Rows()
            If IsDBNull(dRow.Item("feld")) = False Then
                msgbox(cstr(dRow.Item("feld")))
            End If
next