begin ADOConnection1.ConnectionString := 'Server=Hostname;DataBase=DatabaseName'; ADOConnection1.Open('UserName', 'Password'); ADOConnection1.Connected := True;end;