Lo que has de hacer es crear un objeto con la conexión, como un recordset, de modo que te quedaría así:
Código:
sqlstring="select categoria from clientes where nombreusuario=" & "'" &nombreusuario& "'"
Set RS = conn.execute(sqlstring)
categoria = RS("categoria")
Debería funcionarte así.
Un saludo.