Public Sub X()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
    
    Set db = OpenDatabase("w:\Report.mdb", False, True)
    Set qdf = db.QueryDefs("Traffic")
        
    ' Так неправильно.
    'Set fld = qdf.Fields("IP")
    
    ' Надо использовать объект Recordset.
    ' Создать его можно следующим образом.
    ' Использовать метод OpenRecordset объекта Database.
    'Set rst = db.OpenRecordset("Traffic", dbOpenSnapshot)
    
    ' Или использовать метод OpenRecordset объекта QueryDef.
    Set rst = qdf.OpenRecordset()
    
    Set fld = rst.Fields("IP")
    
    ' Первая запись.
    MsgBox fld.Value
    
    ' Вторая запись.
    rst.MoveNext
    MsgBox fld.Value
    
    rst.Close
    db.Close
    
    Set rst = Nothing
    Set db = Nothing
End Sub