ถามเรื่องการ Saveข้อมูลใน vb6 หน่อยคร้า

คือต้องการsaveข้อมูลลงฐานข้อมูล คือว่าอยากให้ข้อมูลที่เราพิมพ์เข้าไป
สามารถ save ได้ทั้ง 2 ฐานข้อมูล คือว่า กดที่ปุ่ม save ทีเดียว แต่สามารถนำข้อมูลไปเก็บไว้ที่ฐานข้อมูล ทั้ง 2 ฐานข้อมูลเลย ควรเขียนcode ประมาณไหนคะ

อ้ออีกอย่าง คือว่าที่ต้องการทำแบบนั้น คือว่าโปรแกรมเดิมเวลาที่จะsave จะลบข้อมูลเก่าออก และนำข้อมูลใหม่ใส่ไปซึ่งข้อมูลเก่งทั้งหมดจะเป็นข้อมูลในลักษณธที่ต่อเนื่องกัน เช่น ข้อมูลเก่ามี 1-100 และอาจเพิ่มข้อมูลใหม่ไปคือ101-110 แต่อยากให้ เวลาที่save ครังแรกมีข้อมูล 1-110 และการsave อีกครั้งมีข้อมูลเฉพาะ 101-110 เท่านั้นอ่าคะ เหมือนให้มันแยกข้อมูลให้อ่าคะ

ช่วยด้วยนะคะท่านผู้รู้ทั้งหลาย
Code


Dim Loop1 As Integer

On Error GoTo ErrorException
Set inc.cnADO = New ADODB.Connection
inc.cnADO.CursorLocation = adUseServer
inc.cnADO.ConnectionString = ConnectionString
inc.cnADO.Open

'Begin Deleteing
inc.cnADO.Execute "DELETE FROM [Roster01_1] WHERE " & inc.Criteria
'End Deleteing

For Loop1 = 1 To Frm1R01.Grid1.Rows - 2
inc.sqlReset "Roster01_1", Insert
With FrmMain
inc.sqlAppend "province", .Province.Text, Numeric
inc.sqlAppend "village", .Village.Text, Numeric
inc.sqlAppend "household", .Household.Text, Numeric
inc.sqlAppend "Round", inc.InputRound, Numeric
End With

With Frm1R01.Grid1
.Row = Loop1
.Col = 0
inc.sqlAppend "month", .Text, Numeric
.Col = .Col + 1
inc.sqlAppend "CheckDate", .Text, Text
End With
inc.cnADO.Execute inc.sqlGet
Next Loop1

'inc.cnADO.Close
'Set inc.cnADO = Nothing
Exit Sub
ErrorException:
inc.PrintError "Module.Save.Save_1R01()"
End Sub


รบกวนช่วนเขียนcode คร่าวๆๆๆๆๆๆๆๆๆๆๆให้หน่อยนะคะ