Private Sub AddVerkaeufer()
 
        Dim strSQL As String
        Dim i As Integer
        Dim pos As Integer = 88 'y position für die Radiobuttons
        Dim sqlDtVerkaeufer As New DataTable()
        Dim rdbVerkaeufer As RadioButton
 
        'SQL erstellen um die Verkäufernr. und -namen zu erhalten
        strSQL = "select a.verkaeufer, b.verkaeufername from ghs_avd a inner" & _
          "join   ghs_verkaeufer b on "
        strSQL &= "a.verkaeufer = b.verkaeufer where a.filialnr = ' " & _
        Me.cboFiliale.SelectedValue & "'"
        strSQL &= " and a.datum = '" & _
        Me.DateTimePicker1.Value.ToShortDateString & "'"
        strSQL &= " and a.filialnr = b.filialnr group by a.verkaeufer," & _
        "b.verkaeufername order by a.verkaeufer"
 
        Try
            sqlAdap = New SqlClient.SqlDataAdapter(strSQL, sqlConn)
            sqlAdap.Fill(sqlDtVerkaeufer)
 
            For i = 0 To sqlDtVerkaeufer.Rows.Count() - 1
                rdbVerkaeufer = New RadioButton()
                With rdbVerkaeufer
                    .Name = "rdbverkaeufer" & sqlDtVerkaeufer.Rows(i).Item(0)
                    .Text = sqlDtVerkaeufer.Rows(i).Item(0) & vbCrLf & _
                      sqlDtVerkaeufer.Rows(i).Item(1)
                    .ForeColor = System.Drawing.Color.Red
                    .Width = 90
                    .Height = 40
                    .Location = New System.Drawing.Point(422, pos)
                End With
 
                Me.TabWgrDayVK.Controls.Add(rdbVerkaeufer)
                pos += 45
            Next
 
        Catch ex As Exception
            MsgBox("Fehler beim Ermitteln der Verkäufer: " & ex.ToString, _
              MsgBoxStyle.Critical, "DB-Fehler")
        End Try
 
end sub