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