ADOA.Close;
    ADOA.ConnectionString :=
        'Provider=SQLOLEDB.1

ersist Security Info=False;' +
        'User ID=' + UserName + ';' +       
        'Password=' + PassWord + ';' +     
        'Persist Security Info=True;' +
        'Initial Catalog=' + DBName + ';' + 
        'Data Source=' + ServerIP;          
    ADOA.Open;