Private Sub cboPubName_Change()
    ' Reset row source of project number combo box:
    With cboProjNum
        .SetFocus
        .Text = ""
        .Requery
        .ListIndex = 0' Selects the first item to display
    End With
End Sub