Note:
EditCombo Me, "cboUserName", "UserName", "qryNames", "popNameInfo"
10 If DCount(strItem, strDomain, strItem & "='" & frm(strCombo).Text & "'") = 0 Then 'strItem & "='" & frm(strCombo).Text & "'"
20 strOpenArgs = frm(strCombo).Text
30 End If
Hopefully nobody has...