esempio:
dopo aver aggiunto nei riferimenti "Microsoft DAO 3.6"
codice:
Dim rc As Recordset
Set rc = CurrentDb.OpenRecordset("SELECT Net.IP FROM Net WHERE Net.Nome_computer='" & Tag & "';")
while not rc.eof
    debug.print rc("Ip")
    rc.movenext
loop
rc.close
set rc = nothing