Miscellany

        Public Sub FillControlFromDataTable(ByVal ctl As System.Object, ByVal dt As DataTable)

            With ctl
                .DataValueField = dt.Columns(1).ColumnName
                .DataTextField = dt.Columns(2).ColumnName
                .DataSource = dt
                .DataBind()
            End With

        End Sub


        Public Sub FillControlFromDataTable(ByVal ctl As System.Object, ByVal dt As DataTable, ByVal strFirstItemText As String, ByVal strFirstItemValue As String)

            FillControlFromDataTable(ctl, dt)

            'With ctl
            '    .DataValueField = dt.Columns(1).ColumnName
            '    .DataTextField = dt.Columns(2).ColumnName
            '    .DataSource = dt
            '    .DataBind()
            'End With

            ctl.Items.Insert(0, New ListItem(strFirstItemText, strFirstItemValue))

        End Sub