Dim conn As MySqlConnection
            Dim da As MySqlDataAdapter
            Dim cb As MySqlCommandBuilder
 
            Dim connStr As String = "Database=fibug2010;" & _
                                "Data Source=127.0.0.1;" & _
                                "User Id=root;Password=xxx"
            Dim connection As New MySqlConnection(connStr)
            Dim myData = New DataTable
            Dim stringSQL As String
            conn = New MySqlConnection(connStr)
 
            connection.Open()
            stringSQL = "SELECT * FROM Buchhaltung"
 
            da = New MySqlDataAdapter(stringSQL, conn)
            cb = New MySqlCommandBuilder(da)
 
            da.Fill(myData)
 
            DataGridView1.DataSource = myData
            connection.Close()