Usi Odbc per necessità?
Ti posto un codice che usa OleDb, eventualmente puoi modificarlo per Odbc

codice:
Dim cmd As New OleDb.OleDbCommand("SELECT user, psw AS var FROM NomeTabella", NomeDellaTuaConnessione)

If cmd.Connection.State = ConnectionState.Closed Then
    cmd.Connection.Open()
End If

Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
dr.Read()

msgbox dr("var")'così accedi al valore della variabile Var.
Prova un po'