Error al adicionar csv con microsoft text driver al poseer password access

[obethermy]

tengo este codigo para los csv que funciona bien hasta que le puse password a la base de datos access2000
he intentado ponerle la clave pero nada de nada dice clave errada

Código: (VB) [Seleccionar]

Set BD = New ADODB.Connection
BD.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};;DefaultDir=" & App.Path & ";DBQ=" & App.Path & _
";Extensions=asc,csv,tab,txt;Extended Properties=text;" & _
"Persist Security Info=False;HDR=YES;FMT=DELIMITED(;)"
BD.Execute "insert into inventario in '" & Origen & "' select * from [" & ArchivoCSV & "]"