Binding Dropdown in VB.Net

Public Sub BindBaseLocation()
        Dim query As String = "Select Id,LocationName from Table_name ORDER BY LocationName ASC"
        Using con As New SqlConnection("Your Connection String")
            Using cmd As New SqlCommand(query)
                cmd.CommandType = CommandType.Text
                cmd.Connection = con
                Using sda As New SqlDataAdapter(cmd)
                    Dim ds As New DataSet()
                    sda.Fill(ds)
                    ddlBaseLocation.DataSource = ds.Tables(0)
                    ddlBaseLocation.DataTextField = "LocationName"
                    ddlBaseLocation.DataValueField = "Id"
                    ddlBaseLocation.DataBind()
                End Using
            End Using
        End Using
        ddlBaseLocation.Items.Insert(0, New ListItem("--Select--", "0"))
End Sub