[vb net] Risultato select in una variabile

[device78]

Salve.
Dovrei assegnare il risultato di una query ad una variabile.
Come posso fare?
Mettiamo che ho questa query "Select codice from Autori" vorrei che il risultato sia assegnato ad una variabile

grazie

[Mychy]

SqlPassword = "select * from TblOperatori Where IdOperatore=" & varIdOperatore
Dim myconnect As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & varDatabase)
Dim rs As New OleDb.OleDbCommand(sqlpassword, myconnect)
Dim rsRea As OleDb.OleDbDataReader
rs.Connection = myconnect
rs.Connection.Open()
rs.CommandText = SqlPassword
rsrea = rs.ExecuteReader(CommandBehavior.CloseConnection)

            Do While rsrea.Read()
                IDOperatore = rsrea.Item("IDOperatore")
            Loop

[device78]

ok grazie mille per la disponibiltà