Lỗi ghi dữ liệu từ excel vào access (1 người xem)

[mrtq_86]

Chào các bạn,

Mình chạy code này thì lỗi

Sub AccImport()    Dim acc As New Access.Application
    acc.OpenCurrentDatabase "C:\Users\MyPC\Downloads\CSDL\CSDL.mdb", , "1234"
    acc.DoCmd.TransferSpreadsheet _
            TransferType:=acImport, _
            SpreadSheetType:=acSpreadsheetTypeExcel12Xml, _
            TableName:="tbldata", _
            Filename:=Application.ActiveWorkbook.FullName, _
            HasFieldNames:=True, _
            Range:="Sheet1$B6:AH10"
    acc.CloseCurrentDatabase
    acc.Quit
    Set acc = Nothing
End Sub

Mật khẩu csdl: 1234
Các bạn giúp mình với.

Cảm ơn nhiều!