求助！怎样把Excel表格里的数据导入VB编程的access数据库里

从excel读取数据，写入mdb数据库中 F1=server.mappath("userdata/"&xlsfile) 'EXCEL 文件路径 Set xlApp = server.CreateObject("Excel.Application") Set xlbook = xlApp.Workbooks.Open(F1) Set xlsheet = xlbook.Worksheets(1) nLine=100 '行数 i=sta