the following code is not working... because the password format....
please

Set db = OpenDatabase(ThisWorkbook.Path & "\" & szFileBase, 0, 0, "EXCEL
8.0;PWD=1111")

*** Sent via Developersdex http://www.developersdex.com ***