只向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