how to change this code to insert statement?

...

Dim Subsru As Recordset, Полe(20) As String
Set Subsru = DBEngine.Workspaces(0).Databases(0).OpenRecordset("SUBARU", DB_OPEN_DYNASET)

...
Subsru.AddNew
...
Subsru.Update



The complete code https://social.msdn.microsoft.com/Fo...orum=vbgeneral