Введение данных в таблицу

Option Compare Database
 
Sub Start()
GetEvent "lynx", "20120502"
GetEvent "dc1", "20120502"
GetEvent "dc2", "20120502"
End Sub
 
Sub GetEvent(st, dtt)
 
Dim strComputer, objWMIService, colItems, objItem
Dim colLoggedEvents, objEvent
 
strComputer = st
On Error Resume Next
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
&strComputer& "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery _
    ("Select * from Win32_NTLogEvent " _
& "Where Logfile = 'Security'")
 
dl = ";"
For Each objEventIncolLoggedEvents
   If Left(Trim(objEvent.TimeWritten), 8) = dtt Then
      If Left(objEvent.EventCode, 2) = "47" Then
        Debug.Print "     Category: " &objEvent.Category&vbNewLine _
        & "     Computer Name: "&objEvent.ComputerName&vbNewLine _
        & "     Event Code: "&objEvent.EventCode&vbNewLine _
        & "     Message: "&objEvent.Message&vbNewLine _
        & "     Time Written: "&objEvent.TimeWritten&vbNewLine _
        & "     Event Type: "&objEvent.Type&vbNewLine _
        & "     -----------------------------------------"
 
        messag = Replace(objEvent.Message, Chr(13), "")
        messag = Replace(messag, Chr(10), "")
                    'Debug.PrintobjEvent.ComputerName& dl _
                    &objEvent.Type& dl _
                    &objEvent.EventCode& dl _
                    &objEvent.SourceName& dl _
                    &Left(objEvent.TimeWritten, 8) & dl _
                    &Mid(objEvent.TimeWritten, 9) & dl _
                    &messag
    End If
  End If
Next
 
End Sub
'я выгружаю данные о пользователях с Active Directory.
'мне нужно из этих данных выбрать некоторые и засунуть в таблицу базы данных Access.
'мне дали этот код, но я не могу с ним разобраться:
 
Dim Db As Database
Dim Rs As Recordset
 
Set Db = Application.CurrentDb
‘Db.Execute "DELETE * FROM ИмяТаблицы"
 
Set Rs = Db.OpenRecordset("Select * from ИмяТаблицы", dbOpenDynaset)
 
Rs.AddNew
Rs!имяполя1 = значение1
Rs! Имяполя2 = значение2
Rs! Имяполя3 = значение3
Rs.Update

Dim Db As Database
Dim Rs As Recordset
 
Set Db = Application.CurrentDb
‘Db.Execute "DELETE * FROM ИмяТаблицы"
 
Set Rs = Db.OpenRecordset("Select * from ИмяТаблицы", dbOpenDynaset)
 
Rs.AddNew
Rs!имяполя1 = значение1
Rs! Имяполя2 = значение2
Rs! Имяполя3 = значение3
Rs.Update