Tente:
Dim CaminhoBanco as string, StrConexão as string
CaminhoBanco = App.Path & "BancoSlavesd_slave.mdb
StrConexão = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CaminhoBanco &";"
StrConexão = StrConexão & "Jet OLEDB:Database Password=MinhaSenhaAqui;"
Abraços, Sidnei