Public Function SelectFirstIfSingleRow (
cboBox As Control,
Optional AddlEmptyVal As Variant = Null
) As Boolean
If the combo has no selected value, and has exactly one row, select the row.
An optional placeholder value to consider as no selected value
Dim b As Boolean
b = xf.Controls.SelectFirstIfSingleRow(cboBox)
b = xf.Controls.SelectFirstIfSingleRow(cboBox, AddlEmptyVal)
SelectFirstIfSingleRow(cboTest)