exel 파일 MDB로 변환시킬때...... 문제점

[낼은어떻게]

'dbOpen 'MDB데이타 베이스 오픈
Set db = OpenDatabase(App.Path & "\db2.mdb")

'새로운 테이블로 만들는 query
sql = sql & "Select [약품코드], [약품명], [규격] into 전산재고2"
sql = sql & " FROM [Excel 8.0;HDR=Yes;DATABASE=" & App.Path & "\2.XLS].[2$]"
db.Execute sql 'ADODB.Connection

db.Close 'MDB데이타 베이스 닫기

대충 위와 같이 코딩을 하면...

원하는 엑셀파일을 mdb로 변환시키는 것은 가능합니다.

문제는..   파일 열기를 이용해서..   엑셀화일을 선택한 후..     mdb로 변환시킬려고 하니

문제가 발생하더군여..

Private Sub Command2_Click()

Dig.CancelError = True
Dig.DialogTitle = "Excel File Open"
Dig.Filter = "Excel(*.csv)|*.csv|Excel(*.xls)|*.xls"
Dig.Action = 1

xlsFilename = Dig.FileName

Set db = OpenDatabase(App.Path & "\db2.mdb")

'새로운 테이블로 만들는 query
sql = sql & "Select [약품코드], [약품명], [규격] into 전산재고2"

'sql = sql & " FROM [Excel 8.0;HDR=Yes;DATABASE=" & App.Path & "\2.XLS].[2$]"

sql = sql & " FROM [Excel 8.0;HDR=Yes;DATABASE= xlsFilename]"

db.Execute sql 'ADODB.Connection

db.Close 'MDB데이타 베이스 닫기

end sub

위와 같이 코딩을 하니..    빨간색 부분에서 당근 에러가 발생하더군여..

파일 경로를 어떻게 넣어줘야..  에러가 안나고 진행이 될까여?

또.. 그 위의 주석 처리된 query에보면.. 2.XLS 의  2 sheet를 선택하고 있는데

화일열기를 한 경우 특정 sheet를 선택하는 것은 어떻게 코딩해야 되는지.....

고수님들의 고견 부탁드립니다.