________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

Dim conString As String
Dim cmd As New MySqlCommand
Dim conn As New MySql.Data.MySqlClient.MySqlConnection
Dim objDaten As MySqlDataReader
conString = "server=localhost;" _
                & "uid=xxxxxx;" _
                & "pwd=xxxxx;" _
                & "database=xxxxx;"
conn.ConnectionString = conString
 
Try
            conn.Open()
            cmd.Connection = conn
 
            cmd.CommandText = "select * from tbFragen as f left join" & _
              "tbantworten as a on (f.FrageID = a.FrageID);"
            objDaten = cmd.ExecuteReader()
            objDaten.Read()
 
Try
                If objDaten.HasRows Then
 
                    ' Feststellen und speichern der Zeilenanzahl
                    Dim y = Me.Tabel1.RowCount - 3
 
                    'Spalte wo die Controls mit Antworten enstehen
                    Dim c = 2
 
                    Do
                        Dim FrageID1 = objDaten.Item("FrageID")
 
                        If Not FrageId = FrageID1 Then
 
                            'Spalte in die eine Textbox  eingefügt wird
                            c = 2
 
                            'Neue Zeile erstellen
                            y += 1
 
                            'Erzeugen eines Objektes und speichern in eine 
                            ' Variable
                            Dim tb1 = New Windows.Forms.TextBox()
 
                            'Einfügen des Objektes in  in Spalte x und Zeile y
 
                            Tabel1.Controls.Add(tb1, 0, y)
 
 
                            tb1.Text = objDaten.Item("Frage")
                            tb1.Width = 400
 
                            Dim optA = objDaten.Item("AntwortAnzahl")
 
                            Dim comb1 = New Windows.Forms.ComboBox()
                            Tabel1.Controls.Add(comb1, 1, y)
 
                  ' Ich lasse nur max 8 Antworten zu..Mehr ergeben sich nicht 
                  ' für meinen Bedarf
                            For i = 0 To 8
                                comb1.Items.Add(i)
                            Next
 
                            comb1.SelectedItem = optA
                            'erstellt einen EventHandler für die Combobox
                            AddHandler comb1.SelectedIndexChanged, AddressOf _
                              DynamicClick
 
                            'Fragen die keine vorgegebenen Antworten haben 
                            ' bekommen eine Textbox generiert
                            If optA = 0 Then
                                Dim Textbox = New Windows.Forms.TextBox()
                                Tabel1.Controls.Add(Textbox, c, y)
                                Tabel1.SetColumnSpan(Textbox, 4)
                                Textbox.Width = 500
                            Else
                                Dim Textbox = New Windows.Forms.TextBox()
                                Tabel1.Controls.Add(Textbox, c, y)
                                If objDaten.Item("Antwort") Is DBNull.Value Then
                                    Textbox.Text = ""
                                Else
                                    Textbox.Text = objDaten.Item("Antwort")
                                End If
 
                            End If
 
                            Dim cb As New Windows.Forms.CheckBox()
                            Tabel1.Controls.Add(cb, Tabel1.ColumnCount, y)
 
                            'Setze Wert von FrageId1 auf FrageId
                            FrageId = FrageID1
                        Else
                            c += 1
                            'Abfrage ob Spalte größer oder gleich 5, wenn ja 
                            ' neue Zeile erstellen
                            If c >= Tabel1.ColumnCount - 1 Then
                                y += 1
                                c = 2
                            End If
 
                            Dim tba = New Windows.Forms.TextBox()
                            Tabel1.Controls.Add(tba, c, y)
 
                            If objDaten.Item("Antwort") Is DBNull.Value Then
                                tba.Text = ""
                            Else
                                tba.Text = objDaten.Item("Antwort")
                            End If
                        End If
 
                    Loop Until objDaten.Read() = False
                Else
                    MsgBox("No rows returned.")
                End If
 
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            objDaten.Close()
 
        Catch ex As MySql.Data.MySqlClient.MySqlException
            MessageBox.Show(ex.Message)
        End Try

Private FragenDataTable as DataTable
Private FragenBinder as New BindingSource
..
Dim adapter as new MySqlDataAdapter("select * from tbFragen as f left join" & _
              "tbantworten as a on (f.FrageID = a.FrageID);", connectionString )
FragenDataTable = new DataTable("Fragen")
adapter.Fill(FragenDataTable)
 
FragenBinder.DataSource = FragenDataTable