vb中代码问题
我要将一个datagrid中的数据，在Command2.Click事件中，将已经添加到datagrid中的数据再保存到数据库中的另一个表中，然后再将这个datagrid清空，，该怎么写这点代码。
还有当往datagrid中添加信息是，我想把最后一列的值的和赋给text17.text,怎样才能实现？
请各位大师帮忙！万分感谢！！！
Private Sub Command2_Click()
On Error Resume Next
Set cn1 = New ADODB.Connection
If cn1.State <> adStateClosed Then cn1.Close
cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库\总数据.mdb;Persist Security Info=False"
Set rs4 = New ADODB.Recordset
rs4.CursorLocation = adUseClient
rs4.Open "select * from 进货表 ", cn1, adOpenDynamic, adLockOptimistic '进货表示空的

rs4.Fields(1) = DataGrid1.Columns(0)
rs4.Fields(2) = DataGrid1.Columns(1)
rs4.Fields(3) = DataGrid1.Columns(2)
rs4.Fields(4) = DataGrid1.Columns(3)
rs4.Fields(5) = DataGrid1.Columns(4)
rs4.Fields(6) = DataGrid1.Columns(5)
rs4.Fields(7) = DataGrid1.Columns(6)
rs4.MoveNext
rs4.Update
End Sub
看看我这个程序问题在哪里？帮帮忙吧，快要交毕业设计了，我还没写完，着急呀！

[解决办法]
cn1.Execute "Insert Into 历史记录 Select * From 进货表"
cn1.Execute "Delete From 进货表"
[解决办法]
cn1.Execute "Insert Into 历史记录 Select * From 进货表"
cn1.Execute "Delete From 进货表"
这个办法可行，有才华的人应该多多为大家回复，很好！