Access và VBa. Nhập dữ liệu từ file Excel không thêm vào bảng được!

[Cuongloan]

Hi all!
Mình viết một đoạn code nhập dữ liều từ file excel vào access.
đoạn code như sau:
Sub Button1_Click()
Dim con As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim StarRow As Integer
Dim i As Integer
'Mo Database
con.ConnectionString = Connection
con.Provider = "Microsoft.Ace.OLEDB.12.0"
con.Open ThisWorkbook.Path & "\VIDUACCESS.accdb", "admin"
Set RS.ActiveConnection = con
RS.Open "select * from Bang1", , adOpenDynamic, adLockBatchOptimistic, -1
' Ghi bao bang
RS.AddNew
For i = 0 To 4
a = i + 1
RS(i) = Sheet1.Cells(2, i + 1)
Next
RS.Update
'Hien bang
StarRow = 1
Do Until RS.EOF
For i = 0 To RS.Fields.Count - 1
Sheet2.Cells(StarRow, i + 1) = RS.Fields(i).Value
Next
RS.MoveNext
StarRow = StarRow + 1
Loop
RS.Close
'Set RS = Nothing
con.Close
'Set con = Nothing
Sheet2.Activate
End Sub
Vấn đề khi mình nhập dữ liệu thì không thêm mới được. Mà nó lại chèn lên dữ liệu cũ. Khi mình mở file data thì không thấy dữ liệu được ghi vào. Mình gửi file đính kèm mọi người giúp mình với nhá