如何在一個表單中同時更新兩個field?(編號：5874)

Private Sub Command1_Click(Index As Integer)
Adodc2.Recordset.AddNew　'新增按鈕
datvip.Recordset.AddNew
Text4(1) = Date
Text7 = 0
End Sub
Private Sub Form_Load()
Adodc2.Recordset.AddNew
datvip.Recordset.AddNew
Text1(0) = Val(Text1(3)) * Val(Text5(4))
Text4(1) = Date
Text7 = 0
End Sub
1.請問一上面的Form_Load()和Command1_Click中那有錯,有沒有更好的方法可以用在adodc元件中的新增功能.
2.如何才可以在一個表單之中,同時新增並更新兩個adodc元件中的field.也就是在表單中只要輸入一筆資料,就會同時更新兩個資料表的field.
請各位先進多多指點一下~thx~