Option Compare Database
Option Explicit
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Query or Table Name")
With rs
tempVar = .Fields("Field or Column Name")
tempVar2 = .Fields("Next Field or Column Name")
tempVar3 = .Fields("You get the...