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