Public Function asdf()
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset
    Set rst.ActiveConnection = CurrentProject.Connection
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenKeyset
    rst.LockType = adLockBatchOptimistic
    rst.Source = "Select * From t"
    
    rst.Open
    Set rst.ActiveConnection = Nothing
    
    rst.AddNew Array("ID"), Array( 1 )
    rst.AddNew Array("ID"), Array( 2 )
    rst.AddNew Array("ID"), Array( 3 )
    
    Set rst.ActiveConnection = CurrentProject.Connection
    rst.UpdateBatch
End Function