Che errore ti da? :master:
prova così:
if not (Recordset1.Fields.Item("usernamevenditore").Value ).eof then

non capisco questa parte qui:
Recordset1.Fields.Item ("usernamevenditore").Value

prova a vedere così
if not Recordset1.("usernamevenditore").eof then