Simpelt query. Hvordan skriver man koden?

Jeg prøver at lave et simpelt eksempel, hvor jeg udtrækker et felt fra den første record i et select statement, og viser resultat i messagebox. Jeg har søgt i hjælpen og på flere fora og fundet lidt syntax hist og pist, men det virker ikke. Jeg forsøger blot at lære hvorledes man trækker resultatet over i et recordset (cursor) og trækker recordset data over i en variabel, som jeg senere skal bruge. Har prøvet:

Private Function FindEmailAddresses()

'Rem    Dim db As DAO.Database
'Rem    Dim EmailRecSet As DAO.Recordset
'Rem    Dim strSQL As String

    Dim db As Database
    Dim EmailRecSet As Recordset
    Dim strSQL As String


Set db = CurrentDb()

strSQL = "Select Email1 From Tbl_Advisering Where Advi_Id = 103"
Set EmailRecSet = db.OpenRecordset(strSQL)

'Rem  EmailRecSet.OpenRecordset (strSQL)
'Rem  EmailRecSet.Open(strSQL)

Do Until EmailRecSet.EOF
  MsgBox EmailRecSet.Fields.Item(0).Value
  EmailRecSet.MoveNext
Loop

Set EmailRecSet = Nothing
EmailRecSet.Close
db.Close

End Function

Undlad venligst ! og & her i starten. Det vil jeg arbejde videre med bagefter.

Jeg skal senere erstatte 103 med et felt fra en form (Advi_Id). Det bliver vist noget med:
strSQL = "Select MAWB From Tbl_Advisering Where Advi_Id = '" & Me.Advi.Id & "' "
Når jeg kommer så vidt