'Call from WebForm code behind: Dim cCurrentValue As String = "5" g.populateCombo( Me.cboDistricts _ , "SELECT ID, DistrictName FROM Districts WHERE ID > 0" _ , cCurrentValue _ , "0", "No Districts Available" _ , "0", "Please Select District" ) ' Sub in Global.asax Public Sub populateCombo(ByRef cboTarget As DropDownList _ , ByRef cSQL As String _ , ByVal cInitialValue As String _ , ByVal cBlankValue As String, ByVal cBlankDisplay As String _ , ByVal cFirstValue As String, ByVal cFirstDisplay As String) Dim tblTemp As DataTable = Me.getTable(cSQL) cboTarget.Items.Clear() If tblTemp.Rows.Count = 0 Then cboTarget.Items.Add(New ListItem(cBlankDisplay, cBlankValue)) Else If cFirstValue.Length > 0 Then cboTarget.Items.Add(New ListItem(cFirstDisplay, cFirstValue)) End If Dim drTemp As DataRow For Each drTemp In tblTemp.Rows cboTarget.Items.Add(New ListItem(CStr(drTemp(1)), CStr(drTemp(0)))) Next If Not IsNothing(cInitialValue) Then cboTarget.SelectedIndex _ = cboTarget.Items.IndexOf( _ cboTarget.Items.FindByValue(cInitialValue)) End If End If End Sub