ایمپورت داده از اکسل رنج انتخاب شده به فیلدی در اکسس از طریق رکوردست

("Set xls=CreateObject("Excel.Application

. . . . . .  .   Set Wbk=xls.Workbooks.Open 

("Set xlsht=Wbk.WorkSheets("Sheet1

Dim db As Dao.DataBase

Dim rst As Dao.RecordSet

xlsht.Range("A2").Select

("Set rst=db.OpenRecordSet("Select * From Table1

rst.AddNew

rst.Fields("ColA2")=xlsht.Range("A2").Value

rst.Update

rst.Close

Set rst=Nothing

Set db=Nothing