能告诉我在delphi7.0中连接sql server 2000的步骤吗呢?

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