[jabim]

Este es un extracto del código que yo utilizo. Debes sustituir las palabras clave (en negrita) por los valores apropiados (En NombreMaquina debes ponerlo sin \\ ;Ejemplo: NombreMaquina=SERVIDORBD):

Código Delphi [-]
varConexion := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=usuario;Password=clave;Initial Catalog=NombreBaseDatos;Data Source=NombreMaquina'
  { Se abre la conexión a la base de datos }
  ADOConexion := TADOConnection.Create(nil);
  ADOConexion.Close;
  ADOConexion.CommandTimeout := 30;
  ADOConexion.ConnectionTimeout := 15;
  ADOConexion.CursorLocation := clUseClient;
  ADOConexion.IsolationLevel := ilCursorStability;
  ADOConexion.LoginPrompt := False;
  ADOConexion.ConnectionString := varConexion;
  ADOQuery := TADOQuery.Create(nil);
  try
    try
      ADOConexion.Open;
      ADOQuery.Connection := ADOConexion;
    except
      { Error al abrir la base de datos }
      ADOQuery.Close;
      ADOConexion.Close;
    end;
    { Se obtienen los datos }
    ADOQuery.Close;
    ADOQuery.SQL.Clear;
    strSQL := 'Select ......';
    ADOQuery.SQL.Add(strSQL);
    ADOQuery.Open;
    if ADOQuery.RecordCount <> 0 then
      while not ADOQuery.EOF do
        begin
          otener datos....;
          ADOQuery.Next;
        end;
    ADOQuery.Close;
  finally
    ADOQuery.Free;
    ADOConexion.Free;