Fórum banco de dados no ado com senha #184578

procedure TdmADOGeral.DataModuleCreate(Sender: TObject);
const
cNomeBD : string = ´DadosGeral´;
var
ConnStr : WideString;
cSenha : string;
a: integer;
begin
dADOConnec.Connected := False;
cSenha := ´abcdef´;

ConnStr := ´Provider=Microsoft.Jet.OLEDB.4.0;´+
´Password=´´;´+
´User ID=Admin;´+
´Data Source=´+fmLogon.cDirBD+´\´+cNomeBD+´.mdb;´+
´Mode=Share Deny None;´+
´Extended Properties=´´;´+
´Locale Identifier=1033;´+
´Jet OLEDB:System database=´´;´+
´Jet OLEDB:Registry Path=´´;´+
´Jet OLEDB:Database Password=´´+cSenha+´´;´+
´Jet OLEDB:Engine Type=4;´+
´Jet OLEDB:Database Locking Mode=0;´+
´Jet OLEDB:Global Partial Bulk Ops=2;´+
´Jet OLEDB:Global Bulk Transactions=1;´+
´Jet OLEDB:New Database Password=´´;´+
´Jet OLEDB:Create System Database=False;´+
´Jet OLEDB:Encrypt Database=False;´+
´Jet OLEDB:Compact Without Replica Repair=False;´+
´Jet OLEDB:SFP=False;´;

try

with dADOConnec do
begin
ConnectionString := ConnStr;
Connected := True;
end;

except
MessageDlg(PChar(cNomeBD), mtError, [mbOK], 0);
Halt;
end;
end;

Espero que ajude !

Eduardo.