How do I create buttons in a app based on information in an access database in vb.net

Private Sub TABONEButtons()

        Dim buttonlabel
        Dim count As Integer

        count = Table1BindingSource.Count
        Timer1.Stop()



        Dim BTN As New Button

        'SET THE PROPERTIES OF THE CONTROL[BUTTON]

        buttonlabel = ButtonTextTextBox.Text

        BTN.Name = buttonlabel
        BTN.Text = buttonlabel
        BTN.Location = New Point(loc_control.X + 10, _
                                        loc_control.Y)
        BTN.Height = 100
        BTN.Width = 100
        BTN.FlatStyle = FlatStyle.Flat
        loc_control.Y += BTN.Height + 10
        BTN.BackColor = Color.FromName(ButtonColourTextBox.Text)
        BTN.ForeColor = Color.White
        BTN.TextAlign = ContentAlignment.BottomCenter
        BTN.Image = PhotoPictureBox.Image

        'CREATE THE EVENT HANDLER
        AddHandler BTN.Click, AddressOf myButtonHandler_Click
        'ADD THE NEW CONTROL[BUTTON] TO THE COLLECTION OF CONTROLS
        FlowLayoutPanel1.Controls.Add(BTN)



        '-------- count button code below ------------------------------------------------------------


        inc_control = inc_control + 1



        'move to next record---------------------------

        Table1BindingSource.MoveNext()

        'MsgBox("search has been run")



        'MsgBox(IDTextBox.Text)







        If inc_control < count Then TABONEButtons()




    End Sub

End Class