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;