While rs.Read
        With GroupBox1.Controls
            With Me.BT
                 BT.Name = "BT" + CStr(RSi)
                 BT.Text = "BT" + CStr(RSi)
                 BT.Location = New System.Drawing.Point(1 * RSi + 80, 1 * RSi + _
                   80)    '(16, 64)
                 BT.Size = New System.Drawing.Size(80, 23)
            End With
        .Add(BT)
        End With
            RSi = RSi + 1
        End While