DWGBrowse.vb form

Public Class DWGBrowse
    Public Property FinishedLoading As Boolean = False

    Private Sub DWGListBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs)
        Me.Validate()
        Me.DWGListBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DWGRegisterDataSet)

    End Sub

    Private Sub DWGBrowse_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        'TODO: This line of code loads data into the 'DWGRegisterDataSet1.DWG_List' table. You can move, or remove it, as needed.
        Me.DWG_ListTableAdapter.Fill(Me.DWGRegisterDataSet1.DWG_List)
        'TODO: This line of code loads data into the 'DWGRegisterDataSet.BuildersList' table. You can move, or remove it, as needed.
        Me.BuildersListTableAdapter.Fill(Me.DWGRegisterDataSet.BuildersList)
        'TODO: This line of code loads data into the 'DWGRegisterDataSet.ProjectsList' table. You can move, or remove it, as needed.
        Me.ProjectsListTableAdapter.Fill(Me.DWGRegisterDataSet.ProjectsList)
        'TODO: This line of code loads data into the 'DWGRegisterDataSet.DWGList' table. You can move, or remove it, as needed.
        Me.DWGListTableAdapter.Fill(Me.DWGRegisterDataSet.DWGList)
        FinishedLoading = True
    End Sub

    Private Sub BuilderBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles BuilderBox.SelectedIndexChanged
        If Not FinishedLoading Then Exit Sub
        Dim sqlConnection As New System.Data.SqlClient.SqlConnection("Data Source=DESKTOP-2P4K639\SQLEXPRESS;Initial Catalog=DWGRegister;Integrated Security=True")
        Dim id As String = BuilderBox.SelectedValue
        Dim dt As New DataTable
        Dim sqlString As String = "Select * From ProjectsList Where BuilderID = @ID"
        'MsgBox(BuilderBox.SelectedValue)
        Using cmd As New System.Data.SqlClient.SqlCommand(sqlString, sqlConnection)
            cmd.Parameters.Add("@ID", SqlDbType.Int).Value = id
            Try
                ProjectBox.DataSource = Nothing
                ProjectBox.Items.Clear()
                ProjectBox.Items.Remove(ProjectBox.DisplayMember)
                sqlConnection.Open()
                Using dr As System.Data.SqlClient.SqlDataReader = cmd.ExecuteReader
                    dt.Load(dr)
                    ProjectBox.DisplayMember = "ProjectName"
                    ProjectBox.ValueMember = "ProjectID"
                    ProjectBox.DataSource = dt
                End Using
            Catch ex As Exception
                MessageBox.Show(ex.Message)

            Finally
                sqlConnection.Close()
            End Try
        End Using

    End Sub


End Class