Private Sub BindingData()
Dim tmpListItem As New ListItem
tmpListItem.Text = ""
tmpListItem.Value = ""
With cboEventType
.DataSource = dsDataSet.Tables("Table1")
.DataTextField = "ID"
.DataValueField = "Name"
.DataBind()
.Items.Insert(0, tmpListItem)
End With
End Sub