Access VBA レコードの挿入

Access VBA レコードの挿入

Access 2000

Public Sub insertData()
    Dim conn As ADODB.Connection
    Dim rec  As ADODB.Recordset
    
    Set conn = CurrentProject.Connection
    
    Set rec = New ADODB.Recordset
    
    Call rec.Open("NewTableName", conn, adOpenKeyset, adLockOptimistic)
    
    rec.AddNew
    rec("Field01") = "aaaa"
    rec("Field02") = "bbbb"
    rec("Field03") = "cccc"
    rec.Update
    
    rec.Close
    conn.Close
    
    Set rec = Nothing
    Set conn = Nothing
    
End Sub