thank you for the help, but still having trouble with the same error on the same line
I changed the line to
rstUser.Open "SELECT * FROM UserID WHERE LoginName = '" & UserName & "'", conDB, adOpenStatic, adLockReadOnly
I would appreciate any suggestions here
thank you