Access y VB.net, recuperar datos de la base de datos

[jaullo]

Es sencillo, puedes tratar de dos formas.

1. Cuando el usuario hace login tomas el Username lo guardas en una variable y ejecutas el procedimiento anterior sobre la tabla atributos para traer el oro

2. Que es en base a lo que hiciste con el procedimiento anterior (que ya lo tienes listo).
Mira, estas haciendo esto:

Código ASP:

Select * from atributos where usuario='" & user & "'"
 

Con esto te estas trayendo todos los datos de la tabla atributos, pero el problema lo tienes aquí:

Código ASP:

lbloro.Text = dr(0).ToString() 'esto te dice el numero de fila en la que se encuentra el usuario buscado o logeado
 

Porque?, porque aqui estas obteniendo el primer campo que la instruccion select encuentre, sea cual sea, entonces como lo solucionas:
Puedes llamar unicamente los datos que necesitas por ejemplo:

Código ASP:

Select usuario,oro from atributos
 

entonces para asignarlo haces:

Código ASP:

label1.Text = dr(0).ToString() 'este seria el usuario 
label2.Text = dr(1).ToString() ' este el oro
 

O bien, seguir usando el select que tienes, pero entonces podrias cambiar el valor por el nombre de la columna de tu base de datos.
Asi:

Código ASP:

label1.Text = dr("usuario").ToString() 'este seria el usuario 
label2.Text = dr("oro").ToString() ' este el oro
 

Espero esto te ayude.

Saludo,