只向ADODB.Recordset写数据，不更新数据库

Option Explicit


Dim Rs As New ADODB.Recordset


'比如给第3列增加内容3
Private Sub Command1_Click()
   Dim i As Integer
   Rs.MoveFirst

   For i = 0 To 3
       ' Rs.AddNew '加四条记录,即为 DataGrid 添加四空行
        Rs(2) = "test"
        Rs.MoveNext
        
    Next i
End Sub


Private Sub Form_Load()
    Dim i As Integer
    For i = 0 To 2  '为Recordset三个字段,即为 DataGrid 添加三列
       Rs.Fields.Append "第" & i & "列", adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
    Next i
    
    Rs.Open
    For i = 0 To 3
        Rs.AddNew '加四条记录,即为 DataGrid 添加四空行
    Next i
    Set DataGrid1.DataSource = Rs '绑定 DataGrid 的数据源
    Rs.MoveFirst
End Sub